添加连续数字VBA表

我有一个简单的macros，将工作表添加到工作簿。 但是，有时我必须删除一些纸张。 当我删除一个工作表，并再次使用macros时，新添加的工作表将采用后面的编号，就好像删除的工作表一样。 我希望macros添加下一个数字的工作表。 例如，我有：

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 ，您将得到一个错误，因为工作表的名称（ Sheet4 ）。 这就是为什么我添加了error handling程序。