Application.Run ReportName & "!Main"

--
Regards,
Tom Ogilvy


"ppyxl" wrote:


code is not working, pls check for me. Many thanks
____________________________
Sub SaveFO2()

-'define date-

Dim ReportDate, LsReportDate As Date
Dim ReportName, directoryName As String

LsReportDate = Workbooks("startup").Sheets("FO2").Range("B2")
ReportDate = Workbooks("startup").Sheets("FO2").Range("B3")

-'save from one file to another-

Workbooks.Open fileName:=("K:\Reporting\XL\DataBase\FO2 " &
Format(LsReportDate, "yyyymmdd") & ".xls"), updatelinks:=0

ActiveWorkbook.SaveAs "K:\Reporting\XL\DataBase\FO2 " &
Format(ReportDate, "yyyymmdd") & ".xls"

-'define some strings-
directoryName = "K:\Reporting\XL\DataBase\FO2 " & Format(ReportDate,
"yyyymmdd")
ReportName = "FO2 " & Format(ReportDate, "yyyymmdd") & ".xls"

Sheets("Input_Working").Activate
Cells(2, 4).Value = ReportDate

-'run macro-
Application.Run ReportName!Main

End Sub


--
ppyxl
------------------------------------------------------------------------
ppyxl's Profile: http://www.excelforum.com/member.php...o&userid=36116
View this thread: http://www.excelforum.com/showthread...hreadid=560641