Hi there ,

I need to determine if a cellvalue is text or a number , but all cellvalues have the textformat.
ie :

"1500"
"AIRPORT"
"WHSE"
"800"
"450"

I need to check if the value ie "450" is a number and the check whether it is greater or equal to a certain number .
I always encounter an error "type mismatch" if the cellvalue is a textvalue like "WHSE" or "AIRPORT"
       If sNumber(CDbl(ActiveCell.Offset(0, 2).Value)) = True Then
        'If IsNumeric(CDbl(ActiveCell.Offset(0, 2).Value)) Then
            VoertuigType = CDbl(ActiveCell.Offset(0, 2).Value)
        Else
            VoertuigType = ActiveCell.Offset(0, 2).Value
        End If
How can i solve this pls ?

thanks for helping me out.
Mario