Macro to continue if the operator press ok or clear content if the operator press cancel

Hi I have one macro that make excel send an e-mail and quit but I want to add a Box with a question Are you done? if the ansewer is yes go to ActiveWorkbook.Saved = True and close excel but if I have a No the macro clear all the unloock content in all sheets and go back to the first available nun lock cell.

On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Are you done with your entry?"
ActiveWorkbook.Saved = True
Application.Quit
End Sub

Hi,

This little piece of code demonstrates how to capture the response from the MsgBox:

Please Login or Register  to view this content.

Hope this helps