Zeile von VBA Code anpassen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen
'If Application.CutCopyMode Then Exit Sub 'nicht beim Kopieren/Ausschneiden
Application.EnableEvents = False
'Veränderungen im Bereich F6:CU1000 werden in jeweiligen Spalte in Zeile 5 mit Datum  _
protokolliert
If Not Intersect(Target, Range("F6:CU1000")) Is Nothing Then
?Range("?" & Target.Row) = Now '? Anpassung !! wie lautet die Zeile!
End If
Application.EnableEvents = True
End Sub

Siehe auch Datei:
www.herber.de/bbs/user/54291.xls
Gruß
Lemmi