ich möchte alle Tabellenblätter markieren ausser die Namen:
Luzia und Thomas.
Ich suchte schon im Archiv aber leider nix passendes gefunden.
Sonja
Sub BlaetterGruppieren()
Dim arrBlatt() As String, iIndex As Long, objWb As Workbook, objWks As Worksheet
Set objWb = ActiveWorkbook
iIndex = 0
For Each objWks In objWb.Worksheets
Select Case objWks.Name
Case "Luzia", "Thomas"
'Blattnamen der Ausnahmen
Case Else
iIndex = iIndex + 1
ReDim Preserve arrBlatt(1 To iIndex)
arrBlatt(iIndex) = objWks.Name
End Select
Next
If iIndex > 0 Then
objWb.Sheets(arrBlatt).Select
End If
End Sub