Check if string contains a number

Is there way in Excel VBA to check if a string contains a number, and then return TRUE or FALSE. Numbers can been anywhere in the string. See example below.

EXPENDITURE DESCRIPTION  FALSE
Gross Expenditure Costs              FALSE
5.1.2 Other 0 0 5.047.549.103      TRUE

Check this out

http://office.microsoft.com/en-us/ex...549011033.aspx

With A1 containing anything.

Here are two approaches:
Non-VBA:

B1: =MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A1&"0123456789"))<LEN(A1)

Edited to include this shorter (but slightly less intuitive) alternative:

B1: =MIN(SEARCH(ROW(1:10)-1,A1&ROW(1:10)-1))<LEN(A1)

Using VBA:

Function ContainsNum(cCell As Range) As Boolean
Dim iCtr As Long

For iCtr = 1 To Len(cCell.Text)
   ContainsNum = IsNumeric(Mid(cCell, iCtr, 1))
   If ContainsNum = True Then
      Exit Function
   End If
Next iCtr
End Function

Usage:

B1: =ContainsNum(A1)

Does that help?

Alternative

=SUMPRODUCT( IF(ISERROR(SEARCH({0,1,2,3,4,5,6,7,8,9},A1)),0,1))

Originally Posted by Shijesh Kumar

Alternative

=SUMPRODUCT( IF(ISERROR(SEARCH({0,1,2,3,4,5,6,7,8,9},A1)),0,1))

I think that would return the count of digits in the referenced cell.

This would return 1 for cells containing numbers:

B1: =MAX(--ISNUMBER(SEARCH({0,1,2,3,4,5,6,7,8,9},A1)))

yes it will return count of digits..
so we can modify it as below to return true or false

= if( SUMPRODUCT( IF(ISERROR(SEARCH({0,1,2,3,4,5,6,7,8,9},A1)),0,1)) > 0 , true , false)

One question thousand solution ;-)