For Each aCell In aRange
If IsNumeric(aCell.Value) Then
'do something here
End If
Next
the IsNumeric function tests if a 'value' can be numeric, the actual formatting in the cell could be text = 109 and IsNumeric would return true,,,all depends what you are really after. you could just test for the cell formatting i guess/....