Thanks 6StringJazzer and Fluff13
I kept fiddling more with the code and I found the code below to work for my needs. However, Fluff13, I like how condense your code is, I may experiment with it to see if I can use it to be more efficient. Thanks for all the help.
Cheers
April
Private Sub ee_toggle_Click()
Dim ee As Worksheet
For Each ee In Worksheets
Select Case ee.Name
Case "Lists", "Engine"
If ee.Visible = True Then
ee_toggle.Caption = "Excel Engine Show"
ee_toggle.BackColor = RGB(181, 179, 179)
ee.Visible = xlSheetHidden
Else
ee_toggle.Caption = "Excel Engine Hide"
ee_toggle.BackColor = RGB(237, 244, 24)
ee.Visible = xlSheetVisible
End If
End Select
Next ee
End Sub
Bookmarks