Excel - VBA - Show - Hide Sheets

Hej...

Jeg er HELT ny i VBA koder og håber der er en der kan hjælpe mig ;o)

Jeg har i et regneark lavet en Checkbox - Som virker således
Hvis jeg fjerner markeringen i checkboxen - Så "gemmer" den fanebladet "Sheet1". Og det virker fint. Mit problem består i at den ved en markering i Checkboxen skal Hide/unhide både Sheet1 og Sheet2?
-----

Sub CheckBox221_Click()
Dim ws As Worksheet
Set ws = ActiveSheet
If Sheets("Sheet1").Visible = xlHidden Then
  Sheets("Sheet1").Visible = -1

Else: Sheets("Sheet1").Visible = xlHidden
End If
End Sub

Håber der er en der kan hjælpe ;o)