Hey everyone,

I have a VBA Code which moves the entire row to the second worksheet if it contains the word "Closed" in column A. I was wondering if someone could help me make the code refer to a drop down list which I will create. For some reason, when I create the drop down list for Column A, the code no longer works. Below is the code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A9")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Dim NR As Long
With Application
.EnableEvents = False
.ScreenUpdating = False
Select Case Target.Value
Case "Closed"
Range("A" & Target.Row & ":M" & Target.Row).Copy Worksheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete Shift:=xlUp
End Select
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Any help would be greatly appreciated!

Thanks!