利用VBA批量新建工作表以及重命名，删除除指定以外的工作表

以下是代码：

Sub 批量新增工作表并命名()
    Dim n, i, x, y, rng As Range
    n = Application.WorksheetFunction.CountA(Columns("A:A"))
    For i = 2 To n
        Sheets.Add After:=ActiveSheet
        Sheets(i + 1).Name = Sheets("列表").Cells(i, 1)
    Next
     Sheets("列表").Activate
End Sub
--------------------------------------------------------------------------
Sub 删除指定以外的工作表()
    Dim sht As Worksheet, strsht As String
    Application.DisplayAlerts = False
    strsht = "库存，列表"
    For Each sht In ThisWorkbook.Sheets
        If InStr(strsht, sht.Name) = 0 Then sht.Delete
    Next
    Application.DisplayAlerts = True
End Sub