Try this

If Worksheets("2").Visible = True Then
Worksheets("2").Visible = False
Else
Worksheets("2").Visible = True
End If
If Worksheets("3").Visible = True Then
Worksheets("3").Visible = False
Else
Worksheets("3").Visible = True
End If

Ragnar