Macro - general refence required 1

[mart10]

I am using Excel 2003 I have a macro 1 (MacroShiftData1Day) which shifts lots of data.Occasionally I want to do the shist 3 times so just run the macro 3 times using:

Sub MacroShiftData3Days()' MacroShiftData3Days Macro'1st Pass Application.Run "'Balance & Cash Flow Forecasts 1.xls'!MacroShiftData1Day"'2nd Pass
Application.Run "'Balance & Cash Flow Forecasts 1.xls'!MacroShiftData1Day"'3rd Pass
Application.Run "'Balance & Cash Flow Forecasts 1.xls'!MacroShiftData1Day"
End Sub

However this obviously references the macro1 in this workbook name and it needs to be general as I am just setting this up as a template at moment and will have lots of differetly named copies. What syntax do I need to do this?

 

[GlennUK]

However this obviously references the macro1 in this workbook name ...

If the macro is in the same workbook, just do:

Sub MacroShiftData3Days()
   ' MacroShiftData3Days Macro
     '1st Pass   
     MacroShiftData1Day       
     '2nd Pass   
     MacroShiftData1Day         
     '3rd Pass   
     MacroShiftData1Day       
End Sub

... or am I missing something here?



Cheers, Glenn.

Beauty is in the eye of the beerholder.

 

[mart10]

THANKS WORKED FINE

 

[GlennUK]

That's great!

Actually, you can make it shorter:

Sub MacroShiftData3Days()
   ' MacroShiftData3Days Macro
     For mypass = 1 to 3
        MacroShiftData1Day       
     Next
End Sub

Cheers, Glenn.

Beauty is in the eye of the beerholder.