In Excel 2003 I have a macro that checks if a cell is not zero.

Range ("P124").Select
If Selection.Value < 0 Then
Call Check
End If

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you continue."
Style = vbOKCancel
Title = "Out of Balance
Response = MsgBox (Msg, Style, Title)
End Sub

I want to exit out of the macro routines when the user presses OK.

Thanks

Andy

looks like it already exits, but maybe this will help

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you continue."
Style = vbOKCancel
Title = "Out of Balance"
Response = MsgBox(Msg, Style, Title)
If Response = 1 Then ' ok pressed
Exit Sub
Else
'response = 2
' do something else
End If
End Sub




--


Gary


"Y2D3Y4" wrote in message
...
In Excel 2003 I have a macro that checks if a cell is not zero.

Range ("P124").Select
If Selection.Value < 0 Then
Call Check
End If

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you continue."
Style = vbOKCancel
Title = "Out of Balance
Response = MsgBox (Msg, Style, Title)
End Sub

I want to exit out of the macro routines when the user presses OK.

Thanks

Andy

On May 8, 9:20*am, Y2D3Y4 wrote:
In Excel 2003 I have a macro that checks if a cell is not zero.

Range ("P124").Select
If Selection.Value < 0 Then
Call Check
End If

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you continue."
Style = vbOKCancel
Title = "Out of Balance
Response = MsgBox (Msg, Style, Title)
End Sub

I want to exit out of the macro routines when the user presses OK.

Thanks

Andy

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you
continue."
Style = vbOKCancel
Title = "Out of Balance "
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then
Exit Sub
End If
End Sub

Regards,
Madiya

Thank you,
This works. I did have to re-arrange the subs, but this works great.

"Gary Keramidas" wrote:

looks like it already exits, but maybe this will help

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you continue."
Style = vbOKCancel
Title = "Out of Balance"
Response = MsgBox(Msg, Style, Title)
If Response = 1 Then ' ok pressed
Exit Sub
Else
'response = 2
' do something else
End If
End Sub




--


Gary


"Y2D3Y4" wrote in message
...
In Excel 2003 I have a macro that checks if a cell is not zero.

Range ("P124").Select
If Selection.Value < 0 Then
Call Check
End If

Sub Check()
Dim Msg, Style, Title, Response
Msg = "This JV does not balance, please correct it before you continue."
Style = vbOKCancel
Title = "Out of Balance
Response = MsgBox (Msg, Style, Title)
End Sub

I want to exit out of the macro routines when the user presses OK.

Thanks

Andy