I would like to be able to run the following macro on a large group of
workbooks without having to open them individually. Any help would be
appreciated. Thanks.

spence

Sub COLAcontracts()
'
' COLAcontracts Macro
' Macro recorded 5/1/2007 by inclusion
'

'
Sheets("IFIS").Select
ActiveSheet.Unprotect Password:="santaclaus"
Rows("7:7").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("B1:B5").Select
Selection.Copy
Range("K5").Select
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("C1:K5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Application.CutCopyMode = False
ActiveSheet.Protect Password:="santaclaus", DrawingObjects:=True,
Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
End Sub