Upon pressing my CommandButton, I would like to have a pop-up that asks \"These changes cannot be undone. It is advised to save a copy before proceeding. Do you wish to proc
You can use a message box, but that is somewhat limited. You can rephrase the question slightly to use the vbYesNoCancel
buttons, since Save As
is not an optional button on Message Box.
Then you can work with the result of the message box button-click:
Dim mbResult as Integer
mbResult = MsgBox("These changes cannot be undone. Would you like to save a copy before proceeding?", _
vbYesNoCancel)
Select Case mbResult
Case vbYes
'Modify as needed, this is a simple example with no error handling:
With ActiveWorkbook
If Not .Saved Then .SaveAs Application.GetSaveAsFilename()
End With
Case vbNo
' Do nothing and allow the macro to run
Case vbCancel
' Do NOT allow the macro to run
Exit Sub
End Select