Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$B$8" Then
Cancel = True
With [B8]
If .Comment Is Nothing Then
.AddComment
.Comment.Visible = False
.Comment.Text Text:=.Value
.Comment.Shape.ScaleWidth 2.58, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleHeight 2.15, msoFalse, msoScaleFromTopLeft
Else
.Value = .Comment.Text
.Comment.Delete
End If
End With
Else
Cancel = False
End If
End Sub