Скрыть Листы по условию

[motorway]

Насколько знаю, обычно с большой буквы, напр. Май. Вообще надо в офиц. документации смотреть

[valerij]

Добавились у меня еще 12 листов, с именем месяца, но с приставко Б.

Function MonthRus(m) As String
  Select Case m
    Case 1:  MonthRus = "ЯНВАРЬ" ' "ЯНВАРЬ-Б"
    Case 2:  MonthRus = "ФЕВРАЛЬ" ' "ФЕВРАЛЬ-Б"
    Case 3:  MonthRus = "МАРТ" ' "МАРТ-Б"
    Case 4:  MonthRus = "АПРЕЛЬ" ' "АПРЕЛЬ-Б"
    Case 5:  MonthRus = "МАЙ" ' "МАЙ-Б"
    Case 6:  MonthRus = "ИЮНЬ" ' "ИЮНЬ-Б"
    Case 7:  MonthRus = "ИЮЛЬ" ' "ИЮЛЬ-Б"
    Case 8:  MonthRus = "АВГУСТ" ' "АВГУСТ-Б"
    Case 9:  MonthRus = "СЕНТЯБРЬ" ' "СЕНТЯБРЬ-Б"
    Case 10: MonthRus = "ОКТЯБРЬ" ' "ОКТЯБРЬ-Б"
    Case 11: MonthRus = "НОЯБРЬ" ' "НОЯБРЬ-Б"
    Case 12: MonthRus = "ДЕКАБРЬ" ' "ДЕКАБРЬ-Б"
  End Select
    For листы = 1 To 12
        Sheets(листы).Visible = False 'False 'True
    Next
    Sheets(m).Visible = True
End Function

Как мне их то же скрыть, по индексу они Лист14...Лист25

[IgorGO]

Так добились же, что скрывало все кроме текущего. Все и должно скрывать.

[valerij]

Сообщение от IgorGO

Так добились же, что скрывало все кроме текущего. Все и должно скрывать.

Ну да, но еще добавились, 12, получилась, так, правильно, не правильно???

Function MonthRus(m) As String
  Select Case m
    Case 1:  MonthRus = "ЯНВАРЬ"
    Case 2:  MonthRus = "ФЕВРАЛЬ"
    Case 3:  MonthRus = "МАРТ"
    Case 4:  MonthRus = "АПРЕЛЬ"
    Case 5:  MonthRus = "МАЙ"
    Case 6:  MonthRus = "ИЮНЬ"
    Case 7:  MonthRus = "ИЮЛЬ"
    Case 8:  MonthRus = "АВГУСТ"
    Case 9:  MonthRus = "СЕНТЯБРЬ"
    Case 10: MonthRus = "ОКТЯБРЬ"
    Case 11: MonthRus = "НОЯБРЬ"
    Case 12: MonthRus = "ДЕКАБРЬ"
  End Select
    For листы = 1 To 12
        Sheets(листы).Visible = False
        Sheets(листы + 13).Visible = False
    Next
    Sheets(m).Visible = True
    Sheets(m + 13).Visible = True
End Function

[IgorGO]

нет, не правильно. кстати критерий правильно/не правильно - это выполнить код и посмотреть получилось/не получилось.
понятно. лист в книгу добавили с новым месяцем весь код надо переписывать...
Попробуй для начала оставить как было, исправь только одну строку:
For листы = 1 To 12
на
For листы = 1 To sheets.count

[valerij]

Сообщение от IgorGO

критерий правильно/не правильно - это выполнить код и посмотреть получилось/не получилось.

Так и сделал, написал, ПОЛУЧИЛОСЬ

Попробуй для начала оставить как было, исправь только одну строку:
For листы = 1 To 12
на
For листы = 1 To sheets.count

Попробовал, скрылись все листы, кроме последнего ДЕКАБРЬ-Б