Open Question: combine xlsx files in to one in diffrent sheets?

using excel 2007 got about 30 or so files would just like to add them all in to one workbook but so they are on there own sheet im sure this is possible to do in vba how ever i have not worked in any thing vb related for over 5 years so very hazy

i can place them all in there own directory so you can just use a foreach using the the file command but can not remember the code to save my life so long spent in the .net and java vb looks confusing now lol would be most greatfull if any one can help
not being funny but thats the monekys way to do it thats gr8 but there 30 of um today with more to come (2moro could be another 30 and im not going to employ some to do that to many man hours) that ways to long to even bother found a soultion now thank you any way

Sub MergeFiles()
Dim path As String, ThisWB As String, lngFilecounter As Long
Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
Dim Filename As String, Wkb As Workbook
Dim CopyRng As Range, Dest As Range
Dim RowofCopySheet As Integer

RowofCopySheet = 2 ' Row to start on in the sheets you are copying from

ThisWB = ActiveWorkbook.Name

path = GetDirectory("Select a folder containing Excel files you want to merge")

Application.EnableEvents = False
Application.ScreenUpdating = False

Set shtDest = ActiveWorkbook.Sheets(1)
Filename = Dir(path & "\*.xls", vbNormal)
If Len(Filename) = 0 Then Exit Sub
Do Until Filename = vbNullString
If Not Filename = ThisWB Then
Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
CopyRng.Copy Dest
Wkb.Close False
End If

Filename = Dir()
Loop

Range("A1").Select

Application.EnableEvents = True
Application.ScreenUpdating = True

MsgBox "Done!"
End Sub
http://www.mrexcel.com/forum/showthread.php?t=298659