Custom messagebox that prompts user that worksheet will be d

[Cosmos75]

I have a macro that deletes a particular worksheet only to make a new version. When the macro deletes the worksheet, it prompts the user that the current sheet will be deleted. However, I have turn off screen updating so it doesn’t go to that particular sheet. Can I get the macro to show a custom message box that says, “Sheet A will be deleted. Proceed?” instead of the excel default. Can this be done?

[Al Chara]

Try the following:

Sub DeleteWS()
Dim worksheetname As String
worksheetname = InputBox("What Worksheet do you want to delete?")
Application.DisplayAlerts = False
Message = MsgBox("Delete " & worksheetname & "?", vbYesNo)
If Message = vbYes Then Worksheets(worksheetname).Delete
End Sub

Change as you see fit/