Msgbox not working properly

[wwbwb]

Why won't this work??? If I hit cancel it works fine, but if I hit OK, it still exits the sub and does NOT call the other macro...

Private Sub CommandButton1_Click()
MsgBox "Once you do this, the only way to get the information back is to close the workbook, DO NOT save, and reopen it!", _
 vbExclamation + vbOKCancel, "WARNING!"
If vbCancel Then Exit Sub
If vbOK Then Call Budgetdelete
End Sub

 

[DRJ]

This should work for you:

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()

    x = MsgBox("Once you do this, the only way to get the information back is to close the workbook, DO NOT save, and reopen it!", vbExclamation + vbOKCancel, "WARNING!")

    <SPAN style="color:#00007F">If</SPAN> x = vbCancel <SPAN style="color:#00007F">Then</SPAN> MsgBox "Cancel"
    <SPAN style="color:#00007F">If</SPAN> x = vbOK <SPAN style="color:#00007F">Then</SPAN> MsgBox "Ok"

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[wwbwb]

thanks. that worked well.

 

[DRJ]

Your Welcome.

Take Care