Macro code Delete Sheet but ask first what sheet name to delete

[jeffllacer]

Good Day,

Is there a way create a button that will delete a specific sheet but it will prompt a message first and ask what specific sheet name to delete?

Thank you in advance.

 

[Micron]

Yup. Could use input box function

InputBox function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

then loop over the workbook sheets and if the input is found, delete. Confirmation could be via message box function; cancel if response is No, delete if Yes. Obviously you want to disallow deleting the sheet that the button is on? In my limited vba referencing of sheet names I've found that sometimes case matters and Sheet1 is not the same as sheet1 so there's that. Some of that can be avoided by using a listbox that contains sheet names, so no typos. That could also allow you to do 2 or more sheets at a time, instead of just one.

Maybe just right click on the sheet tab and choose delete instead?

 

[My Aswer Is This]

Try this:

Sub Delete_Sheet()
'Modified 9/10/2022  10:37:57 PM  EDT
Application.ScreenUpdating = False
On Error GoTo M
Dim ans As String
ans = InputBox("Enter Sheet Name To Delete")
Sheets(ans).Delete
Exit Sub
M:
MsgBox "You entered:" & ans & vbNewLine & "There is no sheet by this name"
Application.ScreenUpdating = True
End Sub