Macro to save file and run existing macro

[mpeters102]

Hi All,

I have a spreadsheet I use as a template each day to complile information, after I get said info I save it as a file containing the date then I run a macro to format the data and get rid of all un-needed columns/rows ect.

I am trying to set up a marco to run the entire procedure...I have the macro working to save the file as the current day working correctly however when I go into that file and open It does not recoginze my original macro to format the data?

Below is what I have It is telling me it does not recognize the "FormatTrdSheet" Macro even though I know it exists and it typed correctly.

Dim sFileName As String, sPath As String

Application.Run "COMBINED_TRADESHEET_SELL1.xls!SaveasSellSheet" 'with today's date
ActiveWorkbook.Save
ActiveWorkbook.Close
sPath = "F:\Moxy\WRAPTrdshts 2009\"
sFileName = "Selltest" & Format(Now(), "mm_dd")
Workbooks.Open Filename:=(sPath & sFileName)
Sheets("Corp").Select
Application.Run "FormatTrdSheet"

 

[Kenneth Hobson]

If Run.xls is open and Module1 has a Sub called Hi, then from any workbook:

Application.Run "Run!Module1.Hi"

Remove the "Run!" if you want to run Module1.Hi from its own workbook. e.g

  Application.Run "Module1.Hi"

This will work even if you have another Sub called Hi in another Module.

Or, do this if there is only one Sub called Hi in ThisWorkbook:

  Application.Run "Hi"

This will error though if you have the Sub Hi in 2 or more Modules.