add new sheets in a workbook with new sheets being a variable

[hansjhamm]

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 = "s*.htm"
.MatchTextExactly = True
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(i)
Set wkbk = ActiveWorkbook

 

[mrice]

You could use something like (placed after each workbook has been
opened)

Sheets("Sheet1").Copy Before:=Thisworkbook.Sheets(1)

Martin


http://homepage.ntlworld.com/martin.rice1/