Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/INDENT]
Cancel = True
With Target
If .Column = 1 Then
Cancel = True
If .Comment Is Nothing Then
.AddComment
.Comment.Shape.Width = 250.5
.Comment.Shape.Height = 55.75
End If
SendKeys "%im"
[INDENT=2] End If