Control of cell comments lsot in Office10

[Snowfire]

I used to control Cell Comments with the below code....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayFormulaBar = True
If ActiveCell.Column = 2 Then
If ActiveCell.Row > 2 Then
If Len(ActiveCell.Value) > 0 Then
SendKeys "%ie~"
End If
End If
End If
End Sub

This code now inserts a cell rather then show the cell's comments
( under Excel 2003 ) can any one help please?
I find the new menu tools rather awkward and hidden when searching
beyond the basic tools....

 

[Claus Busch]

Hi,

Am Tue, 18 Dec 2012 02:28:26 -0800 (PST) schrieb Snowfire:

This code now inserts a cell rather then show the cell's comments
( under Excel 2003 ) can any one help please?
I find the new menu tools rather awkward and hidden when searching
beyond the basic tools....

try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayFormulaBar = True
If Target.Column <> 2 Or Target.Row < 3 _
Or Target.Count > 1 Then Exit Sub

With Target
If Len(.Value) > 0 And Not .Comment Is Nothing Then
.Comment.Visible = True
End If
End With
End Sub


Regards
Claus Busch