How test if numeral is contained in a cell

[xcellerator]

A basic one...I am looking for a way to determine if a cell contains any numerals in the string (the cell is always a string of letters and/or numbers, not a function)
I realize I could do something like:
=COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))>0
But I was wondering if there is a function for this.
I don't think I could use ISTEXT(A1), nor ISNUMBER(A1)
Is there a function like containsnumeral(A1)?
So a cell with A2BCS or 2345 will return TRUE, for example.

 

[mohadin]

Hi

You can write your own function
like

 Function containsnumeral(r As Range) As Boolean
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d"
            If .test(r) Then
                containsnumeral = True
           Else
                containsnumeral = False
            End If
      
    End With
End Function

use it :
=containsnumeral(A1)

 

[mohadin]

OOPs It is Mac OS
So just forget about my code
Sorry

 

[mikerickson]

=MIN(FIND({1,2,3,4,5,6,7,8,9,0}, A1&"1234567890"))<=LEN(A1)

 

[mohadin]

But Any way
Ver2 for other users if some body interested

Function containsnumeral(r As Range) As Boolean
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d"
        containsnumeral = IIf(.test(r), True, False)
    End With
End Function

 

[mikerickson]

Mac doesn't support the dictionary object.

Function ContainsNumeral2(aString As String) As Boolean
    ContainsNumeral2 = (aString Like "*#*")
End Function