abrir un archivo excel para escritura

Hola a todos:

Tengo este codigo:

Sub XLS()
Dim oExcel As Excel.ApplicationClass
Dim oBook As Excel.WorkbookClass
Dim oBooks As Excel.Workbooks
Dim xlSheet As Excel.Worksheets
Try
'Start Excel and open the workbook.
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oBooks.Open("C:\prueba.xls")
xlSheet = oBook.Sheets(1) '< aqui se cae
xlSheet.cells(2, 2).value = "1"

y no puedo abrir un archivo de excel para poder escribirlo datos en las
celdas
gracias por su atencion

Amigo