MsgBox - vbOKCancel

[GerardMcL]

Hi,
I have a delete procedure and before the command is executed a Msgbox asks the user are they sure
It is a vbOkCancel box
How do I write code so that if the user selects
OK - Proceed with Code
Cancel - Stops action

By the way this box is included within an If loop If .. Else statement

 

[MatDavies]

try something like this

    If MsgBox("Are you sure?", vbOKCancel) = vbOK Then
        'Do delete bit here
    Else
        ' do cancel stuff here.
    End If

regards

Matt

If you can keep your head while those around you are losing theirs, you obviously haven't grasped the seriousness of the situation

 

[bombdropVB]

Or along the same lines this

Select Case MsgBox("Please chose", vbYesNoCancel Or vbExclamation Or vbDefaultButton1, "")

	Case vbYes
           'Do something
	Case vbNo
            'Do something
	Case vbCancel
              'Do something
End Select

Hope this helps!!!