Schrift gröse in Kommentar verendern

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
With Target
.Comment.Delete
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(Now)
End With
End Sub