I have this code.
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name = "Test" Then
ws.Select
Application.DisplayAlerts = False
Message = MsgBox("Delete " & ws.Name & " sheet?", vbYesNo, "ARE YOU SURE ABOUT THIS?")
'Does not require End If statement
If Message = vbYes Then Worksheets(ws.Name).Delete
End If
Next ws
- more code-
End Sub
How do I get it to exit the macro if the use chooses NO instead of YES?
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name = "Test" Then
ws.Select
Application.DisplayAlerts = False
Message = MsgBox("Delete " & ws.Name & " sheet?", vbYesNo, "ARE YOU SURE ABOUT THIS?")
'Does not require End If statement
If Message = vbYes Then Worksheets(ws.Name).Delete
End If
Next ws
- more code-
End Sub
How do I get it to exit the macro if the use chooses NO instead of YES?