Unable to get visible property of sheets class

[sdoppke]

Hi All, anyone see where im going wrong here?

Sais, i am unable to get the visible property of the sheets class?

Private Sub ToggleButton1_Click()
     'Toggles the To Do List sheet as hidden and unhidden
     
    Application.ScreenUpdating = False
     
    If Worksheets(Array("Week 1", "Week 2", "Week 3", "Week 4", "Week 5")).Visible = False Then
        Worksheets(Array("Week 1", "Week 2", "Week 3", "Week 4", "Week 5")).Visible = True
    ElseIf Worksheets(Array("Week 1", "Week 2", "Week 3", "Week 4", "Week 5")).Visible = True Then
        Worksheets(Array("Week 1", "Week 2", "Week 3", "Week 4", "Week 5")).Visible = False
    End If
     
    Application.ScreenUpdating = True
End Sub

I am trying to toggle hidden/unhidden the above sheets.

Thanks everyone in advance

sd

 

[VoG]

You need to loop

Private Sub ToggleButton1_Click()
     'Toggles the To Do List sheet as hidden and unhidden
     Dim ws As Worksheet
    Application.ScreenUpdating = False
     
    For Each ws In Worksheets(Array("Week 1", "Week 2", "Week 3", "Week 4", "Week 5"))
        ws.Visible = Not ws.Visible
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[sdoppke]

You need to loop

Private Sub ToggleButton1_Click()
     'Toggles the To Do List sheet as hidden and unhidden
     Dim ws As Worksheet
    Application.ScreenUpdating = False
 
    For Each ws In Worksheets(Array("Week 1", "Week 2", "Week 3", "Week 4", "Week 5"))
        ws.Visible = Not ws.Visible
    Next ws
    Application.ScreenUpdating = True
End Sub

Love it!!, works great. Thank you so much for the help.