Also, ich möchte, wenn der Togglebutton betätigt wird, dass alle Sheets welche mit Tag* beginnen, eingeblendet werden. Wenn ich ihn nochmals drücke, dann sollen alle ausgeblendet werden. Ist ganz einfach, aber ich kriegs irgendwie nicht hin..Hier mein bisheriges Makro:
Private Sub ToggleButton2_Click()
Dim wks As Worksheet
If ToggleButton2 = True Then
For Each wks In Worksheets
If wks.Name Like "Tag*" Then
wks.Visible = xlSheetVisible
Else
If ToggleButton2 = True Then
wks.Visible = xlSheetHidden
End If
Next wks
End If
End Sub