Hi, this is the code, i've borrowed from someone else.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errhand
Application.EnableEvents = False
If Target.Cells.Count = 1 And Target.Column = 4 And Target.Value = "Processed" Then
Target.EntireRow.Copy Destination:=Sheets("Processed").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
errhand:
Application.EnableEvents = True
End Sub
Thanks. Can you recommend anywhere to learn this? I've got loads of stuff that would benefit from being more automated.
Nadine
Bookmarks