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