Public Sub Impact2()
If MsgBox("Would you like to record the changes that were just made?",
vbYesNo, "Record Changes?") = vbNo Then
Exit Sub
End If

End Sub