добавление и переименование листов книги

[kievlyanin]

вот код:

Sub Main()
    Dim Nm As Integer, i As Integer, sh As Worksheet: Application.ScreenUpdating = False: Nm = 0
    Dim Nme As String
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = "12" Then
            MsgBox "Год закончен!": Exit Sub
        End If
        On Error Resume Next: i = CInt(sh.Name)
        If Err = 0 Then Nm = IIf(Nm > i, Nm, i) Else On Error GoTo 0
    Next
    Nme = Nm
    Sheets(Array(("анализ_" & Nm), (Nme))).Copy after:=Sheets(Sheets.Count)
    Sheets("анализ_" & Nm & " (2)").Name = "анализ_" & Nm + 1
    Sheets(Nme & " (2)").Name = Nm + 1
      
End Sub

SAS888, посмотрите - может что улучшить можно?

[SAS888]

Можно. Например, так:

Sub Main()
    Dim Nm As Integer, i As Integer, sh As Worksheet: Application.ScreenUpdating = False: Nm = 0
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = "12" Then
            MsgBox "Год закончен!": Exit Sub
        End If
        On Error Resume Next: i = CInt(sh.Name)
        If Err = 0 Then Nm = IIf(Nm > i, Nm, i) Else On Error GoTo 0
    Next
    Sheets(Array(("анализ_" & Nm), CStr(Nm))).Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count - 1).Name = "анализ_" & Nm + 1: Sheets(Sheets.Count).Name = Nm + 1
End Sub

[kievlyanin]

CStr(Nm) - вот это подойдет ..

а это:
Sheets(Sheets.Count - 1).Name = "анализ_" & Nm + 1: Sheets(Sheets.Count).Name = Nm + 1

не подойдет.

лист анализ может быть как перед листом месяца так и после (порядок листов то уже заявлен как свободный) и при копировании порядок будет идентичен .. так что нельзя утверждать точно что Sheets.Count - 1 будет анализом а Sheets.Count месяцем .. может быть и наоборот .. так что надо через поиск имени.

но то таке - нюансы .. спасибо!