Adding a Message Box to start a Macro

I have a toolbar set up with my workbook and I would like to add in some
safegaurds so an error doesn't happen. How would I write a macro so that
when they clicked the toolbar button it brought up a message that stated,
something to the effect of "have you updated the Manager page?". Then the
box would have two buttons Yes and No. If they click Yes, I would like it to
run the macro. If they click No, I would like it to not run the macro.

Thanks,
Kyle

Sub ButtonMacro()
Dim ans As Long

ans = MsgBox("have you updated the Manager page?",vbYesNo

If ans = vbYes Then
'do your stuff
End If

End SUb


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"kyle" <[email protected]> wrote in message
news:[email protected]...
> I have a toolbar set up with my workbook and I would like to add in some
> safegaurds so an error doesn't happen. How would I write a macro so that
> when they clicked the toolbar button it brought up a message that stated,
> something to the effect of "have you updated the Manager page?". Then the
> box would have two buttons Yes and No. If they click Yes, I would like it
to
> run the macro. If they click No, I would like it to not run the macro.
>
> Thanks,
> Kyle

If Msgbox("have you updated the Manager page?", vbYesNo) = vbNo then
Exit Sub
else
end if
(continues running the code)

Jim


"kyle" wrote:

> I have a toolbar set up with my workbook and I would like to add in some
> safegaurds so an error doesn't happen. How would I write a macro so that
> when they clicked the toolbar button it brought up a message that stated,
> something to the effect of "have you updated the Manager page?". Then the
> box would have two buttons Yes and No. If they click Yes, I would like it to
> run the macro. If they click No, I would like it to not run the macro.
>
> Thanks,
> Kyle

Jim,

Nice! Shorter than Bob's. Heck it could even be a one liner IF. Never
thought of putting a MSGBOX in the IF. I've always gone Bob's way.

Mike

"Jim Jackson" wrote:

> If Msgbox("have you updated the Manager page?", vbYesNo) = vbNo then
> Exit Sub
> else
> end if
> (continues running the code)
>
> Jim
>
>
> "kyle" wrote:
>
> > I have a toolbar set up with my workbook and I would like to add in some
> > safegaurds so an error doesn't happen. How would I write a macro so that
> > when they clicked the toolbar button it brought up a message that stated,
> > something to the effect of "have you updated the Manager page?". Then the
> > box would have two buttons Yes and No. If they click Yes, I would like it to
> > run the macro. If they click No, I would like it to not run the macro.
> >
> > Thanks,
> > Kyle