Ausführung bestätigen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C2:C50000")) Is Nothing Then
Sheets("Abbucher").Range("E5").Value = Target.Value
Application.Goto Reference:=Sheets("Abbucher").Range("A1"), Scroll:=True
End If
End Sub

Ich will, wenn ich auf die eine X-beliebige Zeile Doppelklicke, dies in der Spalte C dieser Zeile ersichtlich ist, das diese zeile bereits bearbeitet wurde. Also es sollte da irgendwas drinnenstehen. Z.B. ein x oder ein Hakerl. Kann mir da wer helfen.
Danke im voraus
chris58