Maybe
Private Sub ee_toggle_Click()
   Dim Ws As Worksheet
   ee_toggle.Caption = IIf(ee_toggle.Value, "Hide Excel Engine", "Show Excel Engine")
   For Each Ws In Sheets(Array("Lists", "Engine"))
      Ws.Visible = ee_toggle.Value
   Next Ws
End Sub