Call Marco to run from VBA

[Godders199]

Hello, I have written the following code, to copy relevant information into a different workbook, and then run a marco in that book. but it cannot find the Marco,
"Macro3" Have I missedsomething?

The data has pasted across,jut need t Marco to run.

Thak

Sheets("summary").Select

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.ShowAllData
Cells.Select
Columns("b:cq").Select
Selection.EntireColumn.Hidden = True
Columns("cs").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Range("A:ct").AutoFilter Field:=1, Criteria1:="<>"
Range("a1:ct1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ChDir _
"SQ Operations\SQ_Allocation\Classification Risk Score"
Workbooks.Open Filename:= _
"SQ Operations\SQ_Allocation\Classification Risk Score\Classification and Risk Score Import Template.xls"
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A2").Select
Call Macro3

Columns("b:cq").Select
Selection.EntireColumn.Hidden = False
Columns("cs").Select
Selection.EntireColumn.Hidden = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.ShowAllData
Cells.Select
Sheets("macro").Select

Application.ScreenUpdating = True
Application.CutCopyMode = True

 

[Godders199]

I am Playing to try and get this to work, I have replace call macro3 with

Workbooks("Classification and Risk Score Import Template").Application.Run "'SQ Operations\SQ_Allocation\Classification Risk Score\Classification and Risk Score Import Template.xls' !macro3"

Still errors, but i can see it has found Macro3

just get a Run-ime erro 9 - subscript out of range

 

[dmt32]

Hi try

Application.Run ("'" & ActiveWorkbook.Name & "'!Macro3")

This assumes that Macro3 is in a standard module & has not been declared Private.


Dave

 

[Godders199]

Hi, just got it to work, it was just needed a capital "M" for Macro

thanks for your help

 

[Godders199]

just one further problem i cant resolve, Marco3 runs and closes the workbook correctly, how do i get the original code to complete?

Columns("b:ct").Select
Selection.EntireColumn.Hidden = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.ShowAllData
Cells.Select
Sheets("macro").Select

Application.ScreenUpdating = True
Application.CutCopyMode = True