type matching

I am running a macro where I call solver/goal seek. Sometimes, they go wonky and for whatever reason I get #NUM cells or something of the kind.

Anyway, I also do some convergence checking after the fact (maybe there is an option with solver/goal seek calls to make this easier???) to try to at least count the cells that are not converged. I'd like to identify them at some point..(hint, hint)



My real question is this:

Is there a way that I can check for type matching before I try to compare a cell that SHOULD be numerical to a number, in case it has gone wonky?

If type.CELLS(23,45) = number

do something

Else If

do something else

End If


....something like that?

Hi

I do know much about goal seek but to determine if a value is numeric this would help

Sub check_valu()
Dim Cell As Range
Dim R As Range
Set R = ActiveSheet.UsedRange
For Each Cell In R
If IsNumeric(Cell.Value) Then
'do your normal process
Else
val_cell = Cell.Value
adr_cell = Cell.Address(rowabsolute, columnabsolute)
MsgBox val_cell Is Not numeric '& " " & adr_cell
End If

Next
End Sub