copiar hoja de un excel a otro excel

[maurimono]

Hola, lo que estoy tratando de hacer es un código donde pueda agregar una hoja (al final de las existentes) desde un excel que contiene algo asi como una plantilla. Esto es lo que tengo hasta ahora:

Dim oExcel As Microsoft.Office.Interop.Excel.Application

Dim Obook As Microsoft.Office.Interop.Excel.Workbook, _
Obook2 As Microsoft.Office.Interop.Excel.Workbook, _
Osheet As Microsoft.Office.Interop.Excel.Worksheet, _
Osheet2 As Microsoft.Office.Interop.Excel.Worksheet

oExcel = New Microsoft.Office.Interop.Excel.Application()
oExcel.SheetsInNewWorkbook = 1
oExcel.DisplayAlerts = False
oExcel.Visible = False

Obook = oExcel.Workbooks.Open("C:\MG\CreaExcel\prueba.xls" )
Osheet = Obook.Sheets("Sheet1")

Obook2 = oExcel.Workbooks.Open("C:\MG\CreaExcel\p.xls")
Osheet2 = Obook2.Sheets("January")

Osheet2.Range("A1", "C6").Value = Osheet.Range("A1", "C6").Value

Obook2.Save()

Obook.Close()
Obook2.Close()

oExcel.Quit()


me envia un error en la linea
oExcel.SheetsInNewWorkbook = 1