Private Sub Form_Undo(Cancel As Integer)
If MsgBox("You Have Attempted to Undo Changes " & _
"to the Current Row. Would You Like to Proceed " & _
"with the Undo Process?", _
vbYesNo) = vbYes Then
'If he responds yes, proceed with the undo
Cancel = False
Else
'If he responds no, cancel the undo
Cancel = True
End If
End Sub