One way:

Public Sub InsertDateInB3()
With Range("B3")
On Error Resume Next
.Comment.Delete
On Error GoTo 0
.AddComment Text:=Format(Date, "d-m-yy")
End With
End Sub


In article ,
"Jack Sons" wrote:

Hi all,

I want to put todays date with a certain format (d-m-yy) in the comment of
cell B3. Can't find the proper code. Please help.

TIA

Jack Sons
The Netherlands