Here is the basic idea for using DIR
Sub FindFilesToChangeSAS()' Bare bones version to test for DIR
Dim FN As String
FN = Dir(ThisWorkbook.Path & "\*.*")
Do Until FN = ""
MsgBox FN 'Name of each file in the directory(folder) displayed
'Do what is desired with the workbook
Loop
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Melwin" <(E-Mail Removed)> wrote in message
news:E4B356D9-BED5-4329-88CB-(E-Mail Removed)...
> Thanks for the update but am not so good with xl can you give me a step by
> step plan or some link where i can find the same
>
> "Don Guillett" wrote:
>
>> You can use a DIR looping macro to open or create formulas for each
>> workbook
>> desired to the next available row on the destination file.
>>
>> --
>> Don Guillett
>> Microsoft MVP Excel
>> SalesAid Software
>> (E-Mail Removed)
>> "Melwin" <(E-Mail Removed)> wrote in message
>> news
A906967-E126-4101-A372-(E-Mail Removed)...
>> > Want to consolidate data from many flies which are in the same format
>> > to a
>> > sigle file how can i do it in the best way?
>>
>> .
>>