You can use this :
Sub Valuefromfileinfolder()
dim r as long
For r = 1 To 50 '50 means numbers of file in a folder c:\
with range("A" & r)
.FormulaArray = "='C:\[Book" & r &
".xls]Sheet1'!I1 'book in folder c:\ must be named "Book1.xls" up to
"Book50.xls"
.Value=.value
end with
next r
end sub


Try it,

Halim


wrote:
Hey folks,

I have a macro that works great in running a macro on all files in a
folder, but now I need a macro to copy the same column (column I) from
each of the 50 sheets in the folder and paste all of them into a new
worksheet starting at column A and continuing down the line.

Help!