VBA Delete a sheet based on cell value

As the title suggests, I am looking to delete a sheet(s) based on a single cell value. It's much simpler than it sounds, I assure you. However, despite its implicity I am still unable to figure out out to delete a single sheet based on the value of "A1".

Essentially, my workbook has a bunch of sheets with various 4 digit numbers (ex 9481, 2789...). Ideally, what I would be able to do is to input the sheet that I am looking to remove by inputting it into cell A1.

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)

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

Please Login or Register  to view this content.

The error message that I get says "Run-time Error '9': Subscript out of range."