IsNumber
From scripting
Function IsNumber(ValueObj As String) As Boolean On Error GoTo Blast Dim HHH As Double HHH = CDbl(ValueObj) IsNumber = True Exit Function Blast: IsNumber = False End Function
Function IsNumber(ValueObj As String) As Boolean On Error GoTo Blast Dim HHH As Double HHH = CDbl(ValueObj) IsNumber = True Exit Function Blast: IsNumber = False End Function