Название листов по дате

[Teslenko_EA]

Здравствуйте valerij.
декларация Option Explicit обязывает объявлять используемые переменные.
Я думал, что все участники форума читали учебники по VB(VBA), оказывается нет.
Евгений.

[valerij]

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

декларация Option Explicit обязывает объявлять используемые переменные.
Я думал, что все участники форума читали учебники по VB(VBA), оказывается нет.
Евгений.

В тех, же учебниках, рекомендуют ВСЕГДА, объявлять используемые переменные. Поэтому, мне и не понятно смысл в Option Explicit

[SAS888]

Можно чуть проще:

Option Explicit
Sub Main()
    Dim sh As Worksheet, m As Integer, n As Integer, arr
    arr = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
    For Each sh In ThisWorkbook.Worksheets
        On Error Resume Next: m = Month(DateValue("1 " & sh.Name & " 1"))
        If Err = 0 Then n = IIf(m > n, m, n) Else On Error GoTo 0
    Next
    If n = 12 Then Exit Sub
    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count): ActiveSheet.Name = MonthName(n + 1)
End Sub

Пример во вложении.