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