Control of cell comments lsot in Office10
 

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....

Control of cell comments lsot in Office10
 

Hi,

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

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
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2