Excel - Detectar valor numérico en un rango de datos

Hola a todos, quisiera preguntaros lo siguiente:

He programado una macro haciendo que el Excel detecte si el contenido de la celda es numérico o no, y en función de este, continuar con la macro o pararse en ese punto.

El codigo es el siguiente:

----------------------------------------------------------------------------

If Not IsNumeric(ActiveSheet.Range("A1")) Then
MsgBox Prompt:="En la casilla A1 no hay ningún valor numérico", Title:="ERROR"
Continuar= False
End If

-----------------------------------------------------------------

Funciona bien para la celda A1, lo que pasa es que a mi me interesa que lo que analize si es numérico o no sea un rango de datos, concretamente el Range("B2:C2"). El problema es que si en la primera linea donde pone A1, lo modifico por B2:C2 , la macro no funciona.

Tiene que ser ese rango exactamente, no me sirve ninguna celda.

¿Cómo podria hacer para que me detectara si en ese rango hay algun contenido numérico o no?


Muchas gracias,


Fernando

Utiliza una variable

podés hacer un bucle For Each...
algo así...

Dim cell As Range

For Each cell In Range("B2:C2")
If Not IsNumeric(cell) Then
MsgBox Prompt:="En la casilla " & cell.Address & " no hay ningún valor numérico", Title:="ERROR"
Continuar= False
Exit For
End If

Next


Saludos, desde Baires, JuanC