I have a message box and on the VbNo command I want to run another
code and exit the current Sub.

How do I do this.

Thanks
David

This is a way to do it:

But it depends whether the procedure it nested inside
another loop... (which needs to be made aware of how the called
procedure progressed..and I'd use a module boolean variable for that.

if it's NOT a 'nested' call you can do without the boolean

dim bCancel as boolean

Sub main()
bCancel=false
proc1
if bcancel then proc3
end sub

sub proc1()
if vbno=msgbox("continue",vbyesno) then
msgbox "oops"
bCancel=true
proc2
exit sub
else
Msgbox "I'll get to work"
endif
'code continues here

end sub

sub proc2
msgbox "I'll do the cleanup"
end sub
sub proc3
msgbox "I'll make the report"
end sub


hope this was clear...
(though it does look hasty :)



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


(dht) wrote:

I have a message box and on the VbNo command I want to run another
code and exit the current Sub.

How do I do this.

Thanks
David

Dim res as Variant ' or long
res = Msgbox("Click yes or no", vbYesNo)
if res = vbNo then
Macro1
exit sub
else
msgbox "You said yes"
End if

--
Regards,
Tom Ogilvy

"dht" wrote in message
om...
I have a message box and on the VbNo command I want to run another
code and exit the current Sub.

How do I do this.

Thanks
David