Recorrer todas las celdas

Hola Adobes,

Prueba esto:

Sub test()
On Error Resume Next
Set res = ActiveSheet.Cells.Find("*")
MsgBox "La celda " & res.Address & _
" contiene el siguiente valor: " & res.Value
If Err.Number <> 0 Then _
MsgBox "No se ha encontrado nada."
End Sub

Saludos,
KL


"Adobes" wrote in message
news:14e401c53c8d$51145730$
Necesito averiguar si en alguna celda de una hoja hay
escrito algo, no conozco qué. Se me ocurre generar un
bucle que recorra celda por celda chequeando su 'value'
aunque sé que esto llevará mucho tiempo.

¿Existe un método mejor?

Saludos desde Zaragoza-España