One way. Set up formulas like this in col b and col c for an already known
file name. Then have a list of the files in col a and use the macro to
change all.

=[MENU.xls]Off2007!$a$2

Sub changefilenames()
For Each c In Range("h6:h7")
c.Replace "ok", c.Offset(, -1)
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Joe" wrote in message
...
I want to programmically extract certain information from all workbooks in
a
folder, always in the same place on the same sheet in each workbook.

The result will look like this:

Bookname Sales Profit
Book1 999 999
Book2 999 999
etc.

assuming Sales and Profit are in cells c10 and g10 of the sheet named
"P&L".