Run macro that contains a sub, priv sub, priv func and func

[knigget]

Hi All,

I have a thread open already which might possibly answer this for me but for the benefit of the search button here goes..

I have a workbook that has a macro that contains 1 x sub, 1 x private sub, 1 x private function and 1 x function. How can I get these all to run when I hit the save button?

I have tried

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

but this only runs a little bit of code. If I put it at the top, it doesn't work.

Any help would be appreciated.

 

[Weaver]

You could try calling the subs explicitly from the beforesave event handler

 

[knigget]

Like this?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call sub1
Call sub2
etc
End Sub

How would I call private subs, private functions and functions?

 

[knigget]

Ok, think I have it sorted..

The name of the overall macro is at the top of my code:

Sub Copy_To_Another_Workbook()

Underneath this is my other private subs, private functions, functions.

I realised that when I ran the macro from excel with the play button, I was specifying it to run "Sub Copy_To_Another_Workbook()" so why not try calling it?
So at the bottom of the code I simply added:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Copy_To_Another_Workbook
End Sub

This runs all the code (subs, private subs, private functions, functions)when I click save or Ctrl S.

Job done