Trigger Code by Dropdown

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!