I want to check if a range("a1") contains a numeric character. Example:
if A1 = "asef45adsf" then answer is True
if A1 = adjsfaff" then answer is False
Function IsNum(r As Range) As Boolean
Dim i As Long
For i = 1 To Len(r.Value)
If IsNumeric(Mid(r.Value, i, 1)) Then
IsNum = True
Exit For
End If
Next i
End Function