Originally Posted by
Melia*10
This may not be the most elegant, but it works.
This assumes that the name of the sheet you want to delete is in cell A1
Sub DeleteSheetA1()
'deactivate alerts - stop 'are you sure you want to delete pop up'
Application.DisplayAlerts = False
'set worksheet you want to delete
sheettodelete = Range("A1").Value
'deletes sheet
Worksheets(sheettodelete).Delete
're-enable alerts
Application.DisplayAlerts = True
End Sub
Hope that helps (this is my first post! woo)
It errors out at
The error message that I get says "Run-time Error '9': Subscript out of range."
Bookmarks