Check if cell contains a numeric character

[nicolewh]

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

Thanks!

 

[Weaver]

and my favourite!

 

[Scott Huish]

and another VBA one:

Function ContainsNumber(r As String) As Boolean
With CreateObject("vbscript.regexp")
    .Pattern = "\d"
    ContainsNumber = .Test(r)
End With
End Function

 

[pgc01]

... and another:

Function HasDigit(s As String)
HasDigit = s Like "*#*"
End Function