|Obviously, the list can not exist in a sheet that you want to delete...|
'Uncomment the next line if you don't want to see
'the Alert that Excel shows when you delete a sheet
'Application.DisplayAlerts = False
For Each shtName In Sheets(1).Range("A1:A10")
Application.DisplayAlerts = True
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.