mpeters102
New Member
- Joined
- Mar 14, 2009
- Messages
- 10
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"
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"