I would use a DIR macro to make a list of the files for col D and then just
copy a formula down
Sub makeformulatogetdatafromclosed()
lr = Cells(Rows.Count, "d").End(xlUp).Row
For Each c In Range("d3:d" & lr)
c.Offset(, 1).Formula = "=[" & c & ".xls]YOURSHEETNAME!$A$75:$P$75"
'c.offset(,1).value=c.offset(,1).value ' change to values if desired
Next c
End Sub--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Joe Roberto" wrote in message
...
a macro to run:
I have more than 300 excel files in one folder. I like to copy row 75
from
column A to P in each files into one Central file in one worksheet and
paste
in one row to the next.
Please help. Thank you,