Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Integer
Dim cell As Range

If Target.Column = 5 Then
For Each cell In Target
If cell.Value = "Done" Then
N = cell.Row
Rows(N).Cut
Call moveEntry(N)
End If
Next cell
End If

End Sub




--

HTH

RP
(remove nothere from the email address if mailing direct)


"xlcharlie" wrote in message
...
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....