Write Code to Open Other WOrkbooks

[Justinian]

How do I write code to open and insert eight workbooks into one main active workbook? The individual eight workbooks are named 1-8.xls.

 

[Justinian]

Just out of curiosity - try this:

For i = 1 To 8
   With CreateObject("C:\Users\justin\Desktop\" & i & ".xls").Sheets("Cyber Rain Controller Event")
        .Name = i
        .Copy Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   End With
Next i

If that doesn't work, then try this:

For i = 1 To 8


Set OtherWB = Workbooks.Open("C:\Users\justin\Desktop\" & i & ".xls")
   With OtherWB.Sheets("Cyber Rain Controller Events")
        .Name = i
        .Copy Before:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   End With
   OtherWB.Close False
Set OtherWB = Nothing


Next i

Yes, this one worked! Thank you.

 

[S O WXLS]

which one? haha

 

[Justinian]

Sorry, the second one.

 

[S O WXLS]

OK thanks for getting back to me - glad it's working