Sub Combine()
    
Dim wbSource1 As Workbook
Dim wbSource2 As Workbook
Dim ws As Worksheet
Dim wsAdd As Worksheet
Dim wbFinal As Workbook
et wbSource1 = Workbooks.Open("C:\Documents and Settings\pisorsia\Desktop\1.xls") 'change to suit!
Set wbSource2 = Workbooks.Open("C:\Documents and Settings\pisorsia\Desktop\2.xls") 'change to suit!
Set wbFinal = Workbooks.Add
Application.DisplayAlerts = False
'turn alerts off, like "are you sure you want to delete this sheet?" stuff
wbFinal.Sheets(1).Name = "blanksheet"
For Each ws In wbFinal.Worksheets
If ws.Name <> "blanksheet" Then ws.Delete
Next ws
'put the first book's stuff in
For Each ws In wbSource1.Worksheets
    Set wsAdd = wbFinal.Worksheets.Add
    wsAdd.Name = "from-" & ws.Name & "-" & Format(Now, "hhmmss") 'some random to avoid conflicts
    ws.Cells.Copy
    wsAdd.Cells.PasteSpecial xlPasteValues
Next ws
'put the second book's stuff in
For Each ws In wbSource2.Worksheets
    Set wsAdd = wbFinal.Worksheets.Add
    wsAdd.Name = ws.Name & "-" & Format(Now, "hhmmss") 'some random to avoid conflicts
    ws.Cells.Copy
    wsAdd.Cells.PasteSpecial xlPasteValues
Next ws
wbSource1.Close (False)
wbSource2.Close (False)
MsgBox "Complete", vbExclamation, "  "
Application.DisplayAlerts = True 'turn back on
End Sub