When you delete Target.EntireRow you delete Target, so when the code reaches here Target doesn't exist.
If LCase(Target) = "approved" Then
Try this.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Select Case LCase(Target)
Case "not approved"
With Sheets("not approved")
LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy Destination:=.Cells(LR, 1)
Target.EntireRow.Delete
End With
Case "approved"
With Sheets("approved")
LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy Destination:=.Cells(LR, 1)
Target.EntireRow.Delete
End With
End Select
Application.EnableEvents = True
End Sub
PS Can you add code tags?
Bookmarks