Zeilen-Nr.

Habe aufgrund wilden rumgehackens leider meinen Code zerstört:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1).Value = Rows()
End If
End Sub

Es soll in die nebenstehende Zelle die Zeilen-Nr. geschrieben werden, funktioniert so aber nicht, was habe ich an dem Ausdruck ( Row() ) vergessen?

Gruß Andre