Dos Hojas de Excel distintas

[alekula]

Hace un tiempo pregunte como hacia para relacionar el excel con vb 60 y me esplicaron perfecrto. Y ahora me gustaria saber como hacer para no solo leer datos de una sola hoja de excel si no de varias.

Dim xLibro As Excel.Workbook
Set objExcel = New Excel.Application
Set xLibro = objExcel.Workbooks.Open(ArchivoExcel)
With xLibro
With .Sheets("hoja1") 'Hacemos referencia a la Hoja1consola
'Nos situamos en la celda con el primer dato
.Cells(5, 1).Select 'me posiciono en la primera celda columna y fila
Selection.End(xlDown).Select 'Baja hasta la última celda llena
Primeraparte = ActiveCell.Row
alae = 1
For alae = 1 To Primeraparte
'For alae = 1 To 10
datos(alae, 0) = .Cells(alae + 4, 1)
datos(alae, 1) = .Cells(alae + 4, 2)
Next alae
Selection.End(xlDown).Select 'Baja hasta la última celda llena
Fila = ActiveCell.Row 'capturo la fila
'Columna = ActiveCell.Column 'capturo la columna
'hh = NumeroJuego - 6000
rr = .Cells(Fila + hh, 1) 'pongo en ll lo que dice en la celda
Selection.End(xlDown).Select 'Baja hasta la última celda llena
UltimaLinea = ActiveCell.Row 'capturo la fila
Ultimo= Val(.Cells(ActiveCell.Row, 1))
For qaq = Fila To UltimaLinea
datps(rr + kak, 0) = .Cells(qaq, 1)
datos(rr + kak, 1) = .Cells(qaq, 2)
kak = kak + 1
Next qaq
End With
End With
objExcel.DisplayAlerts = False
xLibro.Close
'Eliminamos los objetos si ya no los usamos
objExcel.Workbooks.Close
Set objExcel = Nothing
Set xLibro = Nothing


El tema es que eso me va bien para la primera hoja y ahora quiero hacer algo parecido para la segunda pot lo que vi una senstencia que me podia ayudar pero no me srivio


msgbox xLibro.Sheets("libro2").Cells(8, 2)

esto me da el contenido del dato de esa celda de la hoja2
pero cuando me quiero mover adentro de la hoja esta instruccion me da error

xLibro.Sheets("hoja2i").Cells(5, 1).Select

yo pensaba que haciendo referencia a la hoja antes de cada movimiento me resultaria pero no me sirvio. Alguien sabe como es la instruccion para moverme dentro de una hoja que yo elija. Gracias. Si no me explique intento explicarlo de otra forma. Gracoas.
Pd: lo hago asi porque cuando queria preguntar por un hoja abria el excel consultaba y andaba pero cuando volvia a preguntar me daba error como que quedaba abierto el objeto.