Скрыть, отобразить листы, нажатием F3

[valerij]

У меня есть три листа, Июль, Август, Сентябрь, есть макрос:

'********* Переключиться на Лист, текущего месяца ********
Sheets(MonthRus(Month(Now))).Select
  If Err.Number > 0 Then
    Err.Clear
        Sheets(MonthRus(Month(Now) - 1)).Select
    If Err.Number > 0 Then ShN = Sheets.Count Else ShN = Sheets(MonthRus(Month(Now) - 1)).Index
        Sheets.Add After:=Sheets(ShN)
    Sheets(ShN + 1).Name = MonthRus(Month(Now))
  End If

Листы Июль и Сентябрь, пока не нужны, но в Августе я могу посмотреть и вспомнить, что там было в Июле. Формат - Отобразить... долгая песня, хочу нажать F3, все листы отобразились, вторичное нажатие F3, скрылись листы не активных месяцев, если вторичное нажатие F3, вызывает >> кода, то просто закрыл книгу, а при открытии, листы с не активными месяцами, скрылись.

[Казанский]

Что такое >> кода ?

[valerij]

Сообщение от Казанский

Что такое >> кода ?

Много букавок в коде. Вот прикрепил, пример.

[valerij]

Я сделал, через закрытие книги, не двойное нажатие F3, но наворочал...
Можно упростить?
Чуток подправил, теперь без закрытия...

.OnKey "{F3}", "Отобразить"
'***** Переключиться на Лист, текущего месяца *****
    If Sheets(1).Visible = False Then If Sheets(2).Visible = False _
        Then If Sheets(3).Visible = False Then GoTo 1
    If Лист1.Name <> MonthRus(Month(Now)) Then Sheets(1).Visible = False
    If Лист2.Name <> MonthRus(Month(Now)) Then Sheets(2).Visible = False
    If Лист3.Name <> MonthRus(Month(Now)) Then Sheets(3).Visible = False
1:      Sheets(MonthRus(Month(Now))).Select
_____________________________________________________
Function MonthRus(m) As String
    Select Case m
        Case 7:  MonthRus = "Июль"
        Case 8:  MonthRus = "Август"
        Case 9:  MonthRus = "Сентябрь"
    End Select
End Function
_________________________________________________
Sub Отобразить()
    Sheets(1).Visible = True
        Sheets(2).Visible = True
    Sheets(3).Visible = True
End Sub

[valerij]

Не могу одну, правда не значительную, проблему решить.
Закрыл я книгу 31 августа с одним листом_Август, а 1 сентября, открыл книгу и тут же получил ошибку, т. к. лист_Сентябрь, скрыт.
Конечно, жму F3, сохраняю, открываю и все ОК.
Желатель исправить, подскажите?
Невероятно, но сделал!!!

If Sheets(1).Visible = False Then If Sheets(2).Visible = False _
    Then If Sheets(3).Visible = False Then GoTo 1
        Sheets(MonthRus(Month(Now))).Visible = True
If Лист1.Name <> MonthRus(Month(Now)) Then Sheets(1).Visible = False
If Лист2.Name <> MonthRus(Month(Now)) Then Sheets(2).Visible = False
If Лист3.Name <> MonthRus(Month(Now)) Then Sheets(3).Visible = False
1:    Sheets(MonthRus(Month(Now))).Select