Yo con excel no tengo experiencia, pero estuve probando a crear un fichero xls según un ejemplo que ví hace poco por aquí y, aunque conseguí poco más que crearlo, modificando mi código he conseguido escribir en 2 hojas.
Hago algo como:
Código :
Ver originalDim ExcObj As Object
Set ExcObj = CreateObject("Excel.application")
Dim xLibro As Object
Set xLibro = ExcObj.workbooks.Open(App.Path & "\archivo.xls")
Dim Hoja As Object
Set Hoja = xLibro.Sheets("Hoja1")
'y trabajas con:
With Hoja
'cells.....
'....
End With
'Para pasar a otra hoja:
Set Hoja = xLibro.Sheets("Hoja2")
With Hoja
'....
End With
'Al final se guarda y se descarga la memoria:
ExcObj.Application.ActiveWorkbook.Save
ExcObj.Application.Quit
Set ExcObj = Nothing
Set xLibro = Nothing
Set Hoja = Nothing
A ver si te sirve para arreglar tu código o quizá alguien que controle más me corrija o amplíe la información.
Suerte