This is not a trick, simply a specific routine VBA was designed to do:
For i = 1 To 100
Workbooks.Open Filename:="C:\Excel\Book" & i & ".xls"
Sheets("Sheet1").Select
Columns("C:P").Select
Selection.Delete Shift:=xlToLeft
Workbooks.Close
Next
It should be adapted to your specifications.
--
raypayette
------------------------------------------------------------------------
raypayette's Profile:
http://www.excelforum.com/member.php...o&userid=29569
View this thread:
http://www.excelforum.com/showthread...hreadid=569899