... all the character to be 0 - 9?

Hi. One of many ideas if you want to use 'Like'

Function AllDigits(s)
AllDigits = s Like WorksheetFunction.Rept("[0-9]", Len(s))
End Function

Sub TestIt()
Debug.Print AllDigits("123.45")
Debug.Print AllDigits("678")
End Sub

Returns:
False
True

= = = = = = =
HTH :)
Dana DeLouis



On 2/10/2010 12:21 PM, Dreiding wrote:
Using Excel 2003, here is example code that doesn't work. What am I doing
wrong?
My isNumeric test returns "True", but there an "A" in my string.
Am I not checking for all the character to be 0 - 9?

Sub Test1()
Debug.Print isNumeric("A00101")
End Sub

Function isNumeric(ByVal sInput As String) As Boolean
If sInput Like "*[0-9]" Then
isNumeric = True
Else
isNumeric = False
End If
End Function

Thanks,
- Pat