Sub nur im Bestimmten Bereich

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strKommentartext    As String
If Target.Count > 1 Then Exit Sub
If Not IsEmpty(Target.Cells) = True Then
With Target.Cells
If .Comment Is Nothing Then Else strKommentartext = .Comment.Text
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment
.Comment.Visible = False
.Comment.Text Text:=strKommentartext & Chr(10) & _
"-------------------------------------------" & Chr(10) & _
"Änderung: " & Now & Chr(10) & _
"geändert durch: " & WindowsBenutzerName() & Chr(10) &  _
_
"letzter Eintrag vor Änderung: " & gesicherter_Wert
.Comment.Shape.ScaleWidth 1.75, msoFalse, msoScaleFromTopLeft
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
End Sub