Hi all!
Found the script "VBA" which is a little tweaked to fit your needs:
Sub Special_note()
Dim myComm As Comment
If Not ActiveCell.Comment Is Nothing Then
If MsgBox("The cell already contains a note, delete?", 4) - 7 Then
ActiveCell.Comment.Delete
Else: Exit Sub
End...