Paste the following into your Worksheet's code.
Get back to your worksheet and double-click on cell $A$1

HTH
--
AP

'----------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, _
Cancel As Boolean)

Const MyCellAddr = "$A$1"
Dim c As Comment

If Target.Address < MyCellAddr Then Exit Sub
For Each c In Comments
c.Visible = Not c.Visible
Next c
Cancel = True
End Sub
'--------------------------------------------------------

"scubagal" a écrit dans le message de
...
I would like to create hidden comments that can be viewed when clicking on
a
smart tag. Does anyone know how to do that?