MsgBox
 

Here are two ways:

Sub test1()
Dim i As Long

i = MsgBox("Click something", vbYesNoCancel, "Click Me")
If i = vbYes Then
Debug.Print "Yes"
ElseIf i = vbNo Then
Debug.Print "No"
Else
Debug.Print "Cancel"
End If
End Sub

Sub test2()
Select Case MsgBox("Click something", vbYesNoCancel, "Click Me")
Case vbYes: Debug.Print "Yes"
Case vbNo: Debug.Print "No"
Case vbCancel: Debug.Print "Cancel"
End Select
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"dcstech" wrote in message
...
How do you get the return status from a message box............i.e. What
button was pushed?