VBA to delete all sheets in a list

[tonywatsonhelp]

Hi Everyone,
I have a sheet called control and in Range H1:H50 are a list of sheet names
Id like a macro that when run checks you want to delete the sheets then deletes all the sheets in the list but only those sheets
thanks
Tony

 

[Norie]

Try this.

Sub CreateSheets()
Dim Res As VbMsgBoxResult
Dim arrSheets()

    Res = MsgBox("Are you sure you want to delete the sheets?", vbYesNo, "Delete sheets")
    
    If Res = vbYes Then
        arrSheets = Application.Transpose(Range("H1:H150").Value)
        Application.DisplayAlerts = False
        Sheets(arrSheets).Delete
        Application.DisplayAlerts = True
    End If
    
End Sub