in another workbook, list all your workbooks with their path

then you can loop through this list

Dim rng as Range, c as Range, bk as workbook
set rng = Range(Cells(1,1),cells(rows.count,1).End(xlup))
for each c in rng
set bk = workbooks.Open(c.Value)
bk.Worksheets(1).Rows(2068).Delete
bk.Worksheets(1).Range(1:19).EntireRow.Delete
bk.Save Application.Substitute(c.Value,".xls","isolated.xl s")
bk.Close Savechanges:=False
Next

--
Regards,
Tom Ogilvy


"ale700 " wrote in message
...
i need a macro that will be able to delete certain rows (remove them
completely, and, i.e. lets say theyre rows 1,2,3, then row 4 would
become row one), then save this workbook to the same location where it
was opened from, except with a slightly different filename (i.e.
include the words isolated at the end). now its prety simple to do,
the difficult part is that i need to do this for multiple files, from
multiple locations, the only good thing is that its always the same
rows that need to be deleted (or removed, which word you prefer): 1-19,
and row 2068. can anyone please help me??!!


---
Message posted from http://www.ExcelForum.com/