Create and Delete multiple worksheets.bas

Sub Create_Worksheets()
Dim rowNumber As Long, LastRow As Long
Dim ws As Worksheet, wsList As Worksheet
    
    Set wsList = ThisWorkbook.Worksheets("MyList")
    
    With wsList
        LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
    
        For rowNumber = 2 To LastRow
    
            Set ws = ThisWorkbook.Worksheets.Add
            ws.Name = .Cells(rowNumber, "A").Value
            Set ws = Nothing
        
        Next rowNumber
    
    End With

End Sub

Sub DeleteWorksheets()

    Dim ws As Worksheet

    Application.DisplayAlerts = False

    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "MyList" Then ws.Delete
    Next ws

    Application.DisplayAlerts = True

End Sub