Error 13 run-time - mismatch - message

[handric]

Hi,

After clearing content of cells i got this message : Run-time error 13 ; Type mismatch

The code is this :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target

'declare condition to exit sub: single cell + value>0
If .Count > 1 Or Not IsNumeric(Target) Or .Value <= 0 Then Exit Sub

' If do not want trigger change from row n (i.e, from row 10).
'If .Count > 1 Or Not IsNumeric(Target) Or .Value <= 0 Or .Row > 10 Then Exit Sub

Select Case .Column
Case 7, 9 'column F or H
.Offset(0, 2).Select
Case 11 'column I
.Offset(1, -4).Select
Case Else
Exit Sub
End Select
End With

End Sub

The code is working fine. Only thing is when you clear cell content after taking measurement, I got this message.
I presume this is the problem of data type defined as something different.

Any suggestions please.

 

[Phuoc]

Change:

If .Count > 1 Or Not IsNumeric(Target) Or .Value <= 0 Or .Row > 10 Then Exit Sub

to:

If .Count > 1  Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If .Value <= 0  Then Exit Sub
If .Row > 10 Then Exit Sub

 

[handric]

Change:

If .Count > 1 Or Not IsNumeric(Target) Or .Value <= 0 Or .Row > 10 Then Exit Sub

to:

If .Count > 1  Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
If .Value <= 0  Then Exit Sub
If .Row > 10 Then Exit Sub

Thank you. That solved the problem.