Open them, extract the data and close them


Set thisWb = Activeworkbook.Activesheet
Workbooks.Open Filename:=(Range("L1").Value
thsWb.Range("A1").Value = Activeworkbook.Activesheet.Range("B6").Value
ACtiveworkbook.Close

etc for each book

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Steve" wrote in message
...
what Im trying to achieve:

Column L lists file names including path eg c:\rds\incomplete\filename.xls
(the filenames will be variable, ie they will change regularly, so to the
amount of filesnames in the list, usually between 1 and about 20 can be
listed at any given time)

Column A needs to retreive information from a cell (example sheet1!B6) on
the closed workbook listed in column L

Would like to call a function the will populate column A automatically....

tia steve