Good Day,

Looking for an approach for opening a workbook from
another workbook with code, then copy a sheet in the
opened workbook and paste this in the workbook that
are in use.

Any hints are welcome.

Brgds

Gg Rosén

Try this

Sub test()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("C:\test.xls")
Wb2.Sheets("Sheet1").copy after:= _
Wb1.Sheets(Wb1.Sheets.Count)
Wb2.Close False
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"CG Rosén" wrote in message ...
Good Day,

Looking for an approach for opening a workbook from
another workbook with code, then copy a sheet in the
opened workbook and paste this in the workbook that
are in use.

Any hints are welcome.

Brgds

Gg Rosén