How to call macro from other workbook

[ppyxl]

Hi,

I m running a macro from one of the excel workbook let s say workbook1
i want to add a call macro code so that i can execute the macro in othe
workbook2.

Guys, do u have any idea/

Thanks,
ppyx

 

[Bob Phillips]

Application.Run "book2.xls!test_msgbox"


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[colofnature]

Like this:

Application.Run "Workbook1!MyMacro"



Col

 

[ppyxl]

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 Su

 

[Guest]

Application.Run ReportName & "!Main"

 

[ppyxl]

Hi, thanks!

error msg still! macro not found

is it any speical setting for the macro in another excel work book

 

[Guest]

the macro should be in a general module and not in a sheet module or the
thisworkbook module. the macro should be public, but this is the default.

 

[Bob Phillips]

Try

Application.Run "'" & ReportName & "'!Main"

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Guest]

Good catch on Bob's part - Spaces in a workbook name require the name be
enclosed in single quotes.