Macro prompts user to run macro?

[miwarren]

Is there any way I can set a "open macro" to ask the user if they would like to "update flags" run a seperate macro?

I have it set where the workbook runs a macro on open to update the flags, but if they have already opened it recently then they probably don't need to update the flags again, so I would like to give them a prompt where they can so yes or no to the update and not have to wait on the macro to run everytime.

Any suggestions...?

Thanks

[Brett0769]

Use a message box to get the choice from the user, here's a sample.

Dim intYN As Integer
intYN = MsgBox("Do you want to update flags?", vbYesNo, "Update Flags")
If intYN = 6 then
[DoIt]
Else
[Don't]
End If

[miwarren]

It did prompt me, but it ran the macro no matter which you chose.
Anymore help???

Thanks

Use a message box to get the choice from the user, here's a sample.

Dim intYN As Integer
intYN = MsgBox("Do you want to update flags?", vbYesNo, "Update Flags")
If intYN = 6 then
[DoIt]
Else
[Don't]
End If

[Jim Thomlinson]

Give this a try...

If MsgBox("Do you want to update flags?", vbYesNo, "Update
Flags") = vbYes then
[DoIt]
Else
[Don't]
End If

--
HTH...

Jim Thomlinson


"miwarren" wrote:

>
> It did prompt me, but it ran the macro no matter which you chose.
> Anymore help???
>
> Thanks
>
> Brett0769 Wrote:
> > Use a message box to get the choice from the user, here's a sample.
> >
> > Dim intYN As Integer
> > intYN = MsgBox("Do you want to update flags?", vbYesNo, "Update
> > Flags")
> > If intYN = 6 then
> > [DoIt]
> > Else
> > [Don't]
> > End If
>
>
> --
> miwarren
> ------------------------------------------------------------------------
> miwarren's Profile: http://www.excelforum.com/member.php...o&userid=24682
> View this thread: http://www.excelforum.com/showthread...hreadid=477638
>
>

[miwarren]

When I input this into the module it immediately gives me a compile error message.
"Expected: line number or label or statement or end of statment

HELP?

Give this a try...

If MsgBox("Do you want to update flags?", vbYesNo, "Update
Flags") = vbYes then
[DoIt]
Else
[Don't]
End If

--
HTH...

Jim Thomlinson


"miwarren" wrote:

>
> It did prompt me, but it ran the macro no matter which you chose.
> Anymore help???
>
> Thanks
>
> Brett0769 Wrote:
> > Use a message box to get the choice from the user, here's a sample.
> >
> > Dim intYN As Integer
> > intYN = MsgBox("Do you want to update flags?", vbYesNo, "Update
> > Flags")
> > If intYN = 6 then
> > [DoIt]
> > Else
> > [Don't]
> > End If
>
>
> --
> miwarren
> ------------------------------------------------------------------------
> miwarren's Profile: http://www.excelforum.com/member.php...o&userid=24682
> View this thread: http://www.excelforum.com/showthread...hreadid=477638
>
>

[miwarren]

I made some changes and now it doesn't run the macro no matter which you pick. I will just post the code and maybe someone can tell me where I am going wrong. Thanks

Please Login or Register  to view this content.

Give this a try...

If MsgBox("Do you want to update flags?", vbYesNo, "Update
Flags") = vbYes then
[DoIt]
Else
[Don't]
End If

--
HTH...

Jim Thomlinson


"miwarren" wrote:

>
> It did prompt me, but it ran the macro no matter which you chose.
> Anymore help???
>
> Thanks
>
> Brett0769 Wrote:
> > Use a message box to get the choice from the user, here's a sample.
> >
> > Dim intYN As Integer
> > intYN = MsgBox("Do you want to update flags?", vbYesNo, "Update
> > Flags")
> > If intYN = 6 then
> > [DoIt]
> > Else
> > [Don't]
> > End If
>
>
> --
> miwarren
> ------------------------------------------------------------------------
> miwarren's Profile: http://www.excelforum.com/member.php...o&userid=24682
> View this thread: http://www.excelforum.com/showthread...hreadid=477638
>
>