Running a macro on Save command

Matt · Apr 16th, 2002, 02:29 PM

Is there any code which will allow me to run a macro each time a workbook is saved? Hope someone can help.

Thanks

Matt

brettvba · Apr 16th, 2002, 02:32 PM

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub
put that code in your this workbook
sheet in project explorer

[ This Message was edited by: brettvba on 2002-04-16 13:33 ]

Al Chara · Apr 16th, 2002, 02:34 PM

Alt+F11 to access VBA. The left of the screen you will find the project explorer. Double click on ThisWorkbook. Then at the right you will see a big blank sheet. At the top of that sheet you will see a dropdown box titled General. Click on it and select Workbook. Then click the dropdown box to the right that should say Open and select BeforeSave. Enter in the code you want that will occur before a save.

Matt · Apr 16th, 2002, 02:39 PM

Perfect! Thanks for your quick response guys.

Apr 16th, 2002, 02:34 PM	#3
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Alt+F11 to access VBA. The left of the screen you will find the project explorer. Double click on ThisWorkbook. Then at the right you will see a big blank sheet. At the top of that sheet you will see a dropdown box titled General. Click on it and select Workbook. Then click the dropdown box to the right that should say Open and select BeforeSave. Enter in the code you want that will occur before a save. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 16th, 2002, 02:29 PM	#1
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Is there any code which will allow me to run a macro each time a workbook is saved? Hope someone can help. Thanks Matt

Apr 16th, 2002, 02:32 PM	#2
brettvba MrExcel MVP Join Date: Feb 2002 Location: Christchurch New Zealand Posts: 1,030	Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) End Sub put that code in your this workbook sheet in project explorer [ This Message was edited by: brettvba on 2002-04-16 13:33 ]

Apr 16th, 2002, 02:39 PM	#4
Matt Board Regular Join Date: Feb 2002 Location: England Posts: 212	Perfect! Thanks for your quick response guys.