J
Jock
Hi,
The following code will add a comment to a cell in column "AW" when it is
double clicked.
The user will need to add text to the comment so I put in the final two
lines of code hoping to make the comment appear on screen ready to be edited
but that doesn't happen.
What do I need to add/change for this to happen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("AW:AW")) Is Nothing Then
ActiveCell = "P"
'Application.EnableEvents = False
Target.AddComment " passed by " & UserName() & " on " & Format(Date,
"dd/mmm")
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Comment.Visible = True
Comment.Shape.Select
ws_exit:
Application.EnableEvents = True
End Sub
The following code will add a comment to a cell in column "AW" when it is
double clicked.
The user will need to add text to the comment so I put in the final two
lines of code hoping to make the comment appear on screen ready to be edited
but that doesn't happen.
What do I need to add/change for this to happen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("AW:AW")) Is Nothing Then
ActiveCell = "P"
'Application.EnableEvents = False
Target.AddComment " passed by " & UserName() & " on " & Format(Date,
"dd/mmm")
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Comment.Visible = True
Comment.Shape.Select
ws_exit:
Application.EnableEvents = True
End Sub