Myriam,

As it is the vbNo does nothing already.

YOu are not referring to the first message are you?

--

HTH

RP

"Myriam" wrote in message
...
Bob,
I thought I had it all but I am still having trouble with the vbNo.
Where do you position the vbNo 'do nothing ?
Thanks,

"Bob Phillips" wrote:

If date1 Date Then
MsgBox "Cancel Action", vbOKOnly
ElseIf date1 <= Date Then
Response = MsgBox (" Are you sure?",vbYesNoCancel)
If Response = vbYes Then
MsgBox "Do Action",vbYesNoCancel
End If
End If

Indenting helps to see the flow.

--

HTH

RP

"Myriam" wrote in message
...
I need 3 consecutive message boxes to show if conditions are met
and User responds yes.
I can make 2 work but I can't get the 3rd IF to work.
e.g.,
This portion works fine:
--------------------------------
If date1 Date Then
MsgBox "Cancel Action", vbOKOnly
ElseIf date1 <= Date Then
MsgBox " Are you sure?",vbYesNoCancel
--------------------
'This last one is the one I need help with:

If Response = vbYes Then
MsgBox "Do Action",vbYesNoCancel
------------------------------
Thanks in advance, you are all great!