Excel/VBA: Copy worksheets from workbooks into a new workbook as separate worksheets

[Seth123]

I have several Excel sessions open.
Each open workbook has only one worksheet.
I'd like to write a macro that copies the worksheets from all open Excel sessions and paste them into a new workbook as worksheets.


Example: I have 4 excel sessions (excel workbooks) open. Each have one worksheet in them. I run the macro. Now, I have 5 open excel sessions the addition being the new workbook which has 4 worksheets in it that are copied from the 4 excel sessions stated at the beginning.


Thank you!

 

[Norie]

Perhaps.

Dim wbNew As Workbook
Dim I As Long

    Workbooks(1).Sheets(1).Copy

    Set wbNew = ActiveWorkbook

    For I = 2 To Workbooks.Count
        If Not Workbooks(I) Is wbNew Then
            Workbooks(I).Sheets(1).Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
        End If
    Next I

 

[Seth123]

That's it! Thank you so much!