Retrieving Data from Multiple WorkBooks

What I need is a macro that will retrieve data from multiple workbooks
and then take this data and populate a summary sheet. To be more
specific, I need the macro to find every excel workbook in the current
directory (The directory where the summary sheet is located) with a
name like "681(1) Est. *.xls", and then copy the title of the sheet and
a particular range in that file:

Range("I9:I28,I31:I35,I38:I56,I68:I81,I84:I87,I90:I102,I105:I117")

I then need the code to go to Sheet1 of the summary sheet, insert the
previously copied sheet name into Range("G7"), and populate the rows
immediately bellow the title with the other information copied from the
sheet. If there is more than one file the program should know to move
over one column in the summary sheet and perform the same actions
above. If anyone can give me some help that would be great.

Summary sheet Ex:


Item No. Description Unit Est (1) Est (2)
....... ............. ....... .......... ...........
....... ............. ....... Retrieved Retrieved
....... ............. ....... Data Data
....... ............. ....... .......... ...........
....... ............. ....... .......... ...........

Try
http://www.rondebruin.nl/copy3.htm



--
Regards Ron De Bruin
http://www.rondebruin.nl



"mastermind" <mastermind02@gmail.com> wrote in message news:1150387381.213460.312920@r2g2000cwb.googlegroups.com...
> What I need is a macro that will retrieve data from multiple workbooks
> and then take this data and populate a summary sheet. To be more
> specific, I need the macro to find every excel workbook in the current
> directory (The directory where the summary sheet is located) with a
> name like "681(1) Est. *.xls", and then copy the title of the sheet and
> a particular range in that file:
>
> Range("I9:I28,I31:I35,I38:I56,I68:I81,I84:I87,I90:I102,I105:I117")
>
> I then need the code to go to Sheet1 of the summary sheet, insert the
> previously copied sheet name into Range("G7"), and populate the rows
> immediately bellow the title with the other information copied from the
> sheet. If there is more than one file the program should know to move
> over one column in the summary sheet and perform the same actions
> above. If anyone can give me some help that would be great.
>
> Summary sheet Ex:
>
>
> Item No. Description Unit Est (1) Est (2)
> ...... ............. ....... .......... ...........
> ...... ............. ....... Retrieved Retrieved
> ...... ............. ....... Data Data
> ...... ............. ....... .......... ...........
> ...... ............. ....... .......... ...........
>