You could try something like this:

Dim vntCol As Variant
Dim vntRow As Variant
Dim strX As String

For Each vntRow In Selection.Rows
For Each vntCol In Selection.Columns
With ActiveSheet.Cells(vntRow.Row, vntCol.Column)
strX = .Value
If IsNumeric(strX) = False Then
strX = "Row " & CStr(vntRow.Row) & _
", Column " & CStr(vntCol.Column) & _
" is not numeric."
MsgBox strX
End If
End With
Next vntCol
Next vntRow


Regards,
Wes