I would like to use this macro on 8-10 workbooks.

Range("B3:P357").Select
Selection.Copy
ChDir "M:\"
Workbooks.Open Filename:="M:\Expired Template.xlt", Editable:=True
Range("E4").Select
ActiveSheet.Paste
Range("B4").Select
Application.CutCopyMode = False
ChDir "M:\North"
Range("F4").Select
ActiveCell.FormulaR1C1 = "ALLYN"
ActiveWorkbook.SaveAs Filename:="M:\North\ALLYN.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

I want to save the workbooks using the name in cell f4. the recorded macro
has hard coded the name in first workbook uses it to name the other workbooks
Thanks for the help in advance

--
Duane Reynolds
XP Associate Expert