Worksheet Macro using dropdown list

[tyveatch]

I am trying to build my first worksheet macro. I have a dropdown list in a worksheet "Active Email" with "Yes" and 'No". When Yes is selected I want to cut that entire row and paste it in worksheet "Archived Emails". I feel I am close with the code but when I select the word from the dropdown, nothing happens. Any assistance would be appreciated. Here is what I have so far.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If UCase(Target.Value) = "Yes" Then
Target.EntireRow.Copy Destination:=Sheets("Archived Emails"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
End Sub

[Bernie Deitrick]

This should do it.... just make sure that column A is filled or the code will overwrite existing rows.

Please Login or Register  to view this content.

Though this would be better code:

Please Login or Register  to view this content.

[tyveatch]

That works perfectly! Thank you for the help.