IsConvertibleToNumber
From scripting
Function IsConvertibleToNumber(InputStr As Variant) As Boolean On Error GoTo Blast HHH = CDbl(InputStr) If InputStr = "" Then IsConvertibleToNumber = False Exit Function End If IsConvertibleToNumber = True Exit Function Blast: IsConvertibleToNumber = False End Function