Recorrer todas las celdas

Sin problemas. Mi direcciones quitando
NOSPAM y PLEASE.

Saludos,
KL

"Adobes" wrote in message
news:18ed01c53c97$fe5133f0$
Imposible ser más rápido respondiendo, gracias KL,
funciona perfectamente.

Una última cuestión ya fuera de lo tratado: ¿es posible
enviarte un archivo xls a tu correo Hotmail para que me
ayudes con algo que se me apodera? Necesariamente he de
utilizar IE para acceder las news y no puedo enviar
adjuntos.

De nuevo gracias y más saludos.

Tambien, prueba esto.

Saludos,
KL

Sub test()
Dim rngConst As Range
Dim rngForm As Range
On Error Resume Next
With ActiveSheet.Cells
Set rngConst = .SpecialCells(xlCellTypeConstants)
Set rngForm = .SpecialCells(xlCellTypeFormulas)
End With
If Not rngConst Is Nothing Then
MsgBox "Las siguientes celdas: " & Chr(13) & _
rngConst.Address & " contienen valores."
Else
MsgBox "No se han encontrado valores."
End If
If Not rngForm Is Nothing Then
MsgBox "Las siguientes celdas: " & Chr(13) & _
rngForm.Address & " contienen formulas."
Else
MsgBox "No se han encontrado formulas."
End If
End Sub


.