VBA Delete a sheet based on cell value

[klturi421]

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.

[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)

[klturi421]

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."