Use a Macro "ONTO" another workbook

[30percent]

Hi,

I posted something similar previously but I wasn't able to solve the problem I had.

For example I have the following workbook up "run_Macro1.xlsm" and the following code in Module1 of the workbook.

Sub run_Macro_1()


Worksheets("Sheet1").Range("A1").Value = "I just ran macro 1"




End Sub


Sub run_Macro_2()


Worksheets("Sheet1").Range("A2").Value = "I just ran macro 2"




End Sub

I would like to run run_Macro_1 and run_Macro_2 ONTO another workbook, say "target_Wb.xlsm". so that Workbooks("target_WB").Worksheets("Sheet1").Range("A1").Value = "I just ran macro 1" and Workbooks("target_WB").Worksheets("Sheet1").Range("A").Value = "I just ran macro 2".

How do I do that?

Thank you!

 

[footoo]

Sub run_Macro_1()
Workbooks("target_WB.xlsm").Worksheets("Sheet1").Range("A1").Value = "I just ran macro 1"
End Sub

Target_WB has to be open.

 

[30percent]

Sub run_Macro_1()


Workbooks("C:\Users\Desktop\target_Wb.xlsm").Worksheets("Sheet1").Range("A1").Value = "I just ran macro 1"




End Sub


Sub run_Macro_2()


Workbooks("C:\Users\Desktop\target_Wb.xlsm").Worksheets("Sheet1").Range("A2").Value = "I just ran macro 2"




End Sub


Sub call_macro_1_n_2()


Application.Run "C:\Users\Desktop\target_Wb.xlsm!run_Macro_1"


End Sub

I have the above code and target_WB.xlsm open. However, when I run call_macro_1_n_2 I got the following error message:

Run-time error '1004'

Cannot run the macroC:\Users\Desktop\target_Wb.xlsm!run_Macro_1. The macro may not be available in this workbook or all macros may be disabled.
'

 

[footoo]

I note you have chosen to ignore post # 2.

To run a macro from another macro :
https://www.google.com.hk/search?q=...j69i57j0l4.39024j0j8&sourceid=chrome&ie=UTF-8

 

[30percent]

Sub run_Macro_1()
Workbooks("target_WB.xlsm").Worksheets("Sheet1").Range("A1").Value = "I just ran macro 1"
End Sub

Target_WB has to be open.

I did have Target_WB open. However, I still get the error message.

 

[footoo]

Is the destination workbook actually named "Target_WB.xlsm" ? (Try running this code : Workbooks("Target_WB.xlsm").Activate )

Does Target_WB.xlsm have a sheet named "Sheet1" ?