I'm new to macros in excel so I must apologise first if what i'm asking seems silly.

I'm trying to copy from one master file formats and formulas only to a variety of existing files. When recording the macro it works fine but the macro specifically states to activate the original file upon which i have recorded the macro after copying from the master. How can i change this so it uses the active file when i run the macro. I have included the macro below and have highlighted the bit i want to change so its not specific. Is there any way i coukld just specify a directory where the file would be and the it would run on all those files?


Sub formatting()
'
' formatting Macro
' Macro recorded 08/01/2007 by Marc Jonathan Wright
'
' Keyboard Shortcut: Ctrl+q
'
Windows("New Large Export File Master.xls").Activate
Cells.Select
Range("BC23").Activate
Selection.Copy
Windows("060001.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 29
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 39
Range("BC2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(Calculations!R[19]C[-53]="""",0,'Special Price Offer'!R4C9)"
Range("BC2").Select
Selection.Copy
Range("BC2:BC76").Select
ActiveSheet.Paste
Range("BC19:BD20").Select




End Sub