Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$2" Then Target.Value = Date - 1: Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set Target = ActiveCell
Cancel = True
With Target
If .Column = 2 Then
If .Comment Is Nothing Then
.AddComment
.Comment.Shape.Width = 150.5
.Comment.Shape.Height = 245.75
End If
SendKeys "%im"
End If
End With
End Sub