使用vba命名新工作表时，在循环中将数字增加1

Sub NameNewWorksheet()
    Dim ws As Worksheet
    Dim i As Integer
    
    i = 1 ' 初始数字
    
    For Each ws In ThisWorkbook.Worksheets
        If Left(ws.Name, 9) = "NewSheet_" Then
            i = i + 1 ' 数字增加1
        End If
    Next ws
    
    Set ws = ThisWorkbook.Worksheets.Add
    ws.Name = "NewSheet_" & i ' 命名新工作表
    
End Sub