Move "Complete" Items to another sheet in workbook

Hi Kathy

Please see attached which includes the following code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NR As Long
    If Not Target.Column = 5 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Target.Value = "Complete" Then
        Target.EntireRow.Copy
        With Sheets("Complete")
            NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & NR).PasteSpecial
        End With
        Target.EntireRow.Delete
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Please note I've moved your Status List to a separate sheet and defined a Named Range called Status to populate Data Validation. Let me know of issues.