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" <(E-Mail Removed)> wrote in message
news:F24BEA99-0FEF-4A2E-910E-(E-Mail Removed)...
> 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 <Y2D...@discussions.microsoft.com> 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" <(E-Mail Removed)> wrote in message
> news:F24BEA99-0FEF-4A2E-910E-(E-Mail Removed)...
> > 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
> >
> >
>
>
>