>>357
VisibleプロパティがBooleanで状態を返すのでIfで分岐させる

If Sheets("sheet1").Visible Then
Sheets("sheet1").Visible = False
Else
Sheets("sheet1").Visible = True
End If

こうすると実行するたびに表示/非表示が切り替えられる