Как я могу сделать мой макрос переключать видимость / скрытие листов?

Question

у меня есть следующий код, который я хочу, чтобы лист был видимым или скрытым:

Sub toggle()
If Sheets("Navigation (2)").Visible = True Then
    ActiveWindow.SelectedSheets.Visible = False
Else
    Sheets("Navigation (2)").Visible
End If
End Sub

но на остальных листах видна ошибка. Что я делаю неправильно?

Answer 1

это работает:

Sub toggle()
If Sheets("Navigation (2)").Visible = True Then
    ActiveWindow.SelectedSheets.Visible = False
Else
    Sheets("Navigation (2)").Visible = True
End If
End Sub

Answer 2

Как ни странно вы поставите =True , где он не нужен , и забыл его там , где это необходимо.

Sub toggle()
    If Sheets("Navigation (2)").Visible Then
        ActiveWindow.SelectedSheets.Visible = False
    Else: Sheets("Navigation (2)").Visible = True
    End If
End Sub

Как вы можете видеть в видимом методе, он оценивается как TRUE или FALSE . Вот почему вам это не нужно после if но также и то, почему оно вам нужно после Else: