Excel VBA Ошибка времени выполнения «13» Тип несоответствие, когда значение isnt числовое

Question

У меня есть код ниже, возвращающий ошибку несоответствия, когда значение не является числовым. Что бы я изменил?

If Sheet3.Cells(4, 8).Value <= 182 Then 
    Call ThreeSpells 
End If 

Заранее спасибо :)

Answer 1

Что-то вроде этого

Dim MyVar, MyCheck 
MyVar = Sheet3.Cells(4, 8).Value 
MyCheck = IsNumeric(MyVar) 'Returns True 

If MyCheck = True Then 
    If Sheet3.Cells(4, 8).Value <= 182 Then 
    Call ThreeSpells 
    End If 
Else 
'msgbox or what you want 
End If