This may help.

Option Explicit

Sub Test()

Dim wsWorksheet As Worksheet
Dim wbWorkbook As Workbook

Set wsWorksheet = ActiveSheet

Set wbWorkbook = Workbooks.Open("C:\Temp\Sub1\Test.xls")
wbWorkbook.Worksheets("Sheet1").Copy After:=wsWorksheet
wbWorkbook.Close SaveChanges:=False

Set wbWorkbook = Workbooks.Open("C:\Temp\Sub2\Test.xls")
wbWorkbook.Worksheets("Sheet1").Copy After:=wsWorksheet
wbWorkbook.Close SaveChanges:=False

End Sub




*** Sent via Developersdex http://www.developersdex.com ***