Type mismatch error using target.value and target.entirerow.cut in WorkSheet_Change

[Huhenyo]

I'm using the following code.

Private Sub Worksheet_Change(ByVal target As Range)
    If target.Value = "CURED" Then
        target.EntireRow.Cut Destination:=Sheets("CURED").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
End Sub

I can't figure out what the problem is. The type mismatch is highlighting the second row, but I'm pretty sure the problem is in the third row. Any help would be greatly appreciated. Thank you in advance!

 

[dmt32]

Hi,
I suspect you may be getting recursion (event runs twice) when applying that code.

Try turning events off before cutting the row

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo myerror
    If Target.Value = "CURED" Then
    Application.EnableEvents = False
        Target.EntireRow.Cut Destination:=Sheets("CURED").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
myerror:
    Application.EnableEvents = True
End Sub

The error trap is included as EnableEvents has to be explicitly set to True

Dave