run macro on all closed workbooks in folder and subfolders

S

spence

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
 
S

spence

Ron,

Thanks. I can live with that. Your website is very informative by the way. I
have a third party add-on that compiles ranges from closed workbooks but it's
nice to see how to build some of this stuff myself. Your site is a resource I
think I'll find myself going back to many times. I appreciate it.

spence
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top