Create Message Box Upon Open

leewoo5

New Member
Joined
Feb 5, 2017
Messages
13
Hi all,

I would like to create a macro to prompt the following message upon opening the workbook:

"Create New Report?"

Followed by a Yes / No answer.

If Yes is selected I would like it to run the following macro:

Click_NewReport

If no is selected then it just opens the workbook as normal.

I appreciate any help that can be given with this.

Many thanks,
 

Excel Facts

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.

L. Howard

Well-known Member
Joined
Oct 16, 2012
Messages
4,514
Try this copied to the ThisWorkbook code module.

Howard


Code:
Private Sub Workbook_Open()
Dim Msg, ans, Cancel
 
        'msg = "Do you want to do this? "
        'msg = msg & "First line of message," & vbCr & "Second line of nessage."
        
        Msg = "Create New Report?"
        
        
        ans = MsgBox(Msg, vbQuestion + vbYesNoCancel)
        
        Select Case ans

            Case vbYes
                'MsgBox "Yes was clicked"
                Click_NewReport

            Case vbNo
                'MsgBox "No was clicked"
                Exit Sub

            Case vbCancel
                'MsgBox "Cancel was clicked"
                Cancel = True
                Exit Sub

          End Select

End Sub

Sub Click_NewReport()
  MsgBox "The sub ""Click_NewReport"" was called"
End Sub
 

leewoo5

New Member
Joined
Feb 5, 2017
Messages
13
Thanks for your help, the macro works whilst testing it in the VBA screen but does not prompt when opening the workbook?

Many thanks,
 

L. Howard

Well-known Member
Joined
Oct 16, 2012
Messages
4,514
Did you copy to the ThisWorkbook module or a worksheet module?

Howard
 

leewoo5

New Member
Joined
Feb 5, 2017
Messages
13
My apologies, works perfectly.
I really appreciate the help!

Many thanks,
 

Watch MrExcel Video

Forum statistics

Threads
1,129,804
Messages
5,638,455
Members
417,025
Latest member
MusterDuster

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top