Foro de programacion

Buenas compañeros‚ tengo un problema con un programa· Desde una base de datos access‚ mediante vba‚ hago la conexión a un documento excel· La conexión hago asi Set xls = CreateObject("Excel.Application") y luego abro el documento· Hasta aquí vale· Luego quiero metiendo una fecha mediante un inputbox que busque la celda donde se encuentra ese documento· El excel tiene 12 hojas· Cómo hago para buscar en las 12 hojas la fecha desde access? · Me han dado este código pero no me va:
Fecha = Date
For Each hoja In xls.Worksheets(Array("jun_05"‚ “jul_05"‚ “dic_05"))
If xls.Application.CountIf(hoja.Columns("A")‚ Fecha) 0 Then
Set celda = hoja.Columns("A").Find(Fecha‚ [A1])
MsgBox “Fecha encontrada en “ & hoja.Name & vbCr & “en la celda “ & celda.Address
Exit For ' elimina esta linea para buscar en las hojas 'siguientes' ) '
End If
Next
La casilla donde se encuentr la fecha tiene que quedrse activa
Un saludo y gracias de antemano