シートを連続番号で追加するVBA

Question

ブックをブックに追加するシンプルなマクロがあります。しかし、時々私はいくつかのシートを削除する必要があります。シートを削除して再びマクロを使用すると、新しく追加されたシートには、削除されたシートが残っているかのように、後続の番号が仮定されます。私は、マクロが次の番号のシートを追加したいと思います。例えば、私が持っている：

Sheet1 Sheet2 Sheet3 

それから私はSheet3を削除し、完全にSheet3と私はこれをどのように行うことができますSheet4

With ThisWorkbook 

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

End With 

ないのだろう別のシートを、追加したいですか？

Answer 1

ワークブックにこのコードを追加します。

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）とする。それがエラーハンドラを追加した理由です。