Hope someone can help

What I want to do is have a macro that copies the same cells from 10
different specifically named excel files and pastes them onto the
relevant worksheet within another workbook. All the files will be
within 1 folder.

Hope this makes sence and someone can help.

Thanks


--
kingdt
------------------------------------------------------------------------
kingdt's Profile: http://www.excelforum.com/member.php...o&userid=32531
View this thread: http://www.excelforum.com/showthread...hreadid=523143

here is some pseudo code
Dim sname as String
Dim bk as Workbook
Dim rng as Range
sname = dir("C:\Myfolder\Myfile*.xls")
do while sName < ""
set bk = workbooks.open("C:\MyFolder\" & sName)
set rng = bk.worksheets(1).Range("A1:A10")
rng.copy thisworkbook.worksheets( _
left(sName,len(sname)-4)).Range("A1")
bk.close Savechanges:=False
sName = dir()
Loop

Obviously I don't know how "particular" or "relevant" should be specifically
implemented in the code.


--
Regards,
Tom Ogilvy

"kingdt" wrote:


Hope someone can help

What I want to do is have a macro that copies the same cells from 10
different specifically named excel files and pastes them onto the
relevant worksheet within another workbook. All the files will be
within 1 folder.

Hope this makes sence and someone can help.

Thanks


--
kingdt
------------------------------------------------------------------------
kingdt's Profile: http://www.excelforum.com/member.php...o&userid=32531
View this thread: http://www.excelforum.com/showthread...hreadid=523143