Run one macro for all macros instead of doing it one by one

[krodriguez]

Hello,

I have the following code with 2 macros and will like to run it all at once, how can I do this? Thanks

Sub SaveSheetsAsFiles()
Dim SheetsToSave
SheetsToSave = Array("Rainbow", "RLN-Net Realization", "RLN-Red Rev", "RLN-COGS", "RLN-Logistics", "RLN-R&D", "RLN-Selling", "RLN-Administrative", "RLN-Advertising", "RLN-Sales Promo") 'change tab names to suit
Application.ScreenUpdating = False
For Each sht In Sheets(SheetsToSave)
sht.Copy
'file location is same as workbook the code is in. Change to suit
'file format is .xlsm - change to suit
ActiveWorkbook.SaveAs Filename:=sht.Name & ".xlsm", FileFormat:=52
Next sht
Application.ScreenUpdating = True
End Sub


Sub SaveSheetsAsFiles2()
Dim SheetsToSave
SheetsToSave = Array("Neocell", "NC-Net Realization", "NC-Red Rev", "NC-COGS NC-Logistics", "NC-R&D", "NC-Selling", "NC-Administrative", "NC-Advertising", "NC-Sales Promo") 'change tab names to suit
Application.ScreenUpdating = False
For Each sht In Sheets(SheetsToSave)
sht.Copy
'file location is same as workbook the code is in. Change to suit
'file format is .xlsm - change to suit
ActiveWorkbook.SaveAs Filename:=sht.Name & ".xlsm", FileFormat:=52
Next sht
Application.ScreenUpdating = True
End Sub

 

[Fluff]

All you need to do is add the values from the 2nd macro's array to the 1st macro's array

 

[krodriguez]

newbie on this so I'm not following your explanation, what exactly I need to add?

 

[Fluff]

You need to add these values

"Neocell", "NC-Net Realization", "NC-Red Rev", "NC-COGS", "NC-Logistics",  "NC-R&D", "NC-Selling", "NC-Administrative", "NC-Advertising",  "NC-Sales Promo"

to the array in your first code.

 

[krodriguez]

but if I do that I would have one excel file per value correct? what I'm looking is to run a code that add each array to one excel file. So I run the macro and the final output will be two excel files that will have the following tabs on each one:

1. "Rainbow", "RLN-Net Realization", "RLN-Red Rev", "RLN-COGS", "RLN-Logistics", "RLN-R&D", "RLN-Selling", "RLN-Administrative", "RLN-Advertising", "RLN-Sales Promo"

2."Neocell", "NC-Net Realization", "NC-Red Rev", "NC-COGS NC-Logistics", "NC-R&D", "NC-Selling", "NC-Administrative", "NC-Advertising", "NC-Sales Promo"

 

[Fluff]

Your code is saving each sheet as a new workbook.
If that is not what you want, why did you not say so in your op?

 

[krodriguez]

My bad. How can I save the sheets in two workbooks as mentioned above by running one macro?

 

[Fluff]

What do you want to call the new workbooks?

 

[Dannygreen1992]

I used to just record a macro that manually runs both macros one after the other. Rather lazy way of doing it but it does the job

 

[krodriguez]

First workbook Rainbow with these sheets:

1. "Rainbow", "RLN-Net Realization", "RLN-Red Rev", "RLN-COGS", "RLN-Logistics", "RLN-R&D", "RLN-Selling", "RLN-Administrative", "RLN-Advertising", "RLN-Sales Promo"

Second workbook Neocell with these sheets:

2."Neocell", "NC-Net Realization", "NC-Red Rev", "NC-COGS NC-Logistics", "NC-R&D", "NC-Selling", "NC-Administrative", "NC-Advertising", "NC-Sales Promo"