copiar hoja de un excel a otro excel

[maurimono]

hola, he modificado el codigo. ahora entiendo que el problema es una librería o alguna referencia que no he cargado.

Código:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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
        Try
            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()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


    End Sub

al depurar me indica el error: Old format or invalid type library apuntando a a la linea
oExcel.SheetsInNewWorkbook = 1


Bueno, gracias por sus respiuestas. Saludos.