With the IsNumeric test, it returns "Yes" for a blank cell otherwise works OK.
How to not see blank as IsNumeric?

For Each c In aRng
If IsNumeric(c.Offset(, 3)) Then
MsgBox "Yes"
End If
Next

With the CountA test, it works just fine, returns "8" if Resize range is 'full'.

For Each c In aRng
If WorksheetFunction.CountA(c.Resize(1, 8)) = 8 Then
MsgBox "8"
End If
Next


Then with a corrected IsNumeric test and the CountA test, how to put in a single:

For Each c In aRng
If CountA... and IsNumeric... Then
'Do something
End If
Next

Thanks.
Howard