software

In my workbook I have it set up that it will look in a folder and open
all workbooks within that folder (Thanks to Dave!) no matter how many
workbooks are in the folder, (the number will vary from month to
month).
What I now would like to do is this: Open the workbook and copy the
sheet (only one sheet per workbook) and paste into an existing sheet or
create a new sheet in the master workbook. How would I go about this?
The openining code is this:
Sub getdata()
Dim SpecialProjectLite As Workbook
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.SearchSubFolders = False
.Filename = quot;s*.htmquot;
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() gt; 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i)
Set wkbk = ActiveWorkbook
You could use something like (placed after each workbook has been
opened)

Sheets(quot;Sheet1quot;).Copy Befo=Thisworkbook.Sheets(1)

Martinhomepage.ntlworld.com/martin.rice1/--
mrice
------------------------------------------------------------------------
mrice's Profile: www.excelforum.com/member.php...oamp;userid=10931
View this thread: www.excelforum.com/showthread...hreadid=531956