I have writen a macro, but was just wondering if it is possible to add
confirmation box to popup at the start incase someone presses the butto
by mistake

--
alex198
-----------------------------------------------------------------------
alex1982's Profile: http://www.excelforum.com/member.php...fo&userid=3749
View this thread: http://www.excelforum.com/showthread.php?threadid=57171

Hi Alex,

This is one way...

Public Sub MyMacro()
Dim Check As VbMsgBoxResult
Check = MsgBox("Are you sure you want this macro to run?", vbYesNo)
If Check = vbYes Then
'Code Here
End If
End Sub

Just make sure there is no code between End If and End Sub.

Ken Johnson

Where in my macro would i include this code?


--
alex1982
------------------------------------------------------------------------
alex1982's Profile: http://www.excelforum.com/member.php...o&userid=37494
View this thread: http://www.excelforum.com/showthread...hreadid=571711

Hi Alex,

Dim Check As VbMsgBoxResult
Check = MsgBox("Are you sure you want this macro to run?", vbYesNo)
If Check = vbYes Then

could be at the start of your code, then straight after the last line
of your code (but before the End Sub line) the "End If" line.

This way, your code is only run if the user clicks the "Yes" button.
When the "No" button is clicked the code jumps to the "End If" then the
End Sub, so nothing happens.

Ken Johnson

Thanks, i managed to work it out. This is the first time i've really
tried to use macros for anything. :)


--
alex1982
------------------------------------------------------------------------
alex1982's Profile: http://www.excelforum.com/member.php...o&userid=37494
View this thread: http://www.excelforum.com/showthread...hreadid=571711

You're welcome Alex.
Good Luck.

Ken Johnson

Here is my Before Print sub which uses a Message Box to make sure tha
the user has updated the weekly data before they print the report no
sure what your macro is doing but by changing the workbook event o
adapting the code it should be what you need or at least a step in th
right direction

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim wk As Worksheet
Dim Config As Integer
Dim Ans As Integer

For Each wk In Worksheets
wk.Calculate
Next

Config = vbYesNo + vbQuestion + vbDefaultButton1
Ans = MsgBox("Have you updated the weekly data?", Config, "Ensur
correct data")

If Ans = vbNo Then Cancel = True

If Ans = vbYes Then Cancel = False

End Sub

Regards

Adria

--
SandyU
-----------------------------------------------------------------------
SandyUK's Profile: http://www.excelforum.com/member.php...fo&userid=1748
View this thread: http://www.excelforum.com/showthread.php?threadid=57171