Yeah I realized that at about the same time I clicked on Post.

Private Sub Worksheet_change(ByVal Target As Range)
Dim n As Integer

If Target.Column = 5 Then
If Target.Value = "Done" Then
n = Target.Row
Rows(n).Cut
Call moveEntry(n)
End If
End If

"Chip" wrote:

Your code isnt below....