Добавить лист с последующим номером VBA

Question

У меня есть простой макрос, который добавляет лист в книгу. Однако иногда мне приходится удалять некоторые листы. Когда я удаляю лист, и я снова использую макрос, вновь добавленный лист принимает следующий номер, как если бы удаленные листы были прежними. Я хочу, чтобы макрос добавлял лист со следующим числом. Например, у меня есть:

Sheet1 Sheet2 Sheet3 

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

With ThisWorkbook 

    .Sheets.add After:=.Sheets(.Sheets.Count) 

End With 

Как я могу это сделать?

Answer 1

Добавьте этот код в Workbook:

Option Explicit 

Private Sub Workbook_NewSheet(ByVal Sh As Object) 

    On Error GoTo Workbook_NewSheet_Error 

    Sh.Name = "Sheet" & Sheets.Count 

    On Error GoTo 0 
    Exit Sub 

Workbook_NewSheet_Error: 

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Workbook_NewSheet of VBA Document DieseArbeitsmappe" 

End Sub 

Довольно много, если у вас есть следующие листы Sheet1, Sheet2 и Sheet4 и вы добавляете новый вы получите сообщение об ошибке, так как имя листа (Sheet4). Вот почему я добавил обработчик ошибок.