Typing in ALL CAPS is consider SHOUTING on the INTERNET.
If you want to do this the best you can do is expose the comment when
selecting more than one cell. But note there will be not indicator on any of
the cells other than the primary cell. Would that do? Also, will all the
cells that you want to trigger the comment be within the viewable area of the
primary cell? If not just exposing the comment won't be enought.
Also, since the only thing that shows in a sheet with comments are the red
comment indicator at the top right corner of the cell, and these don't print,
I'm not sure what "clutter" you are talking about. Please elaborate.
1. In the sheet object where you want to have a shared comment add the
following code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("A1,C1,E1"))
If Not isect Is Nothing Then
Comment1.Show
End If
End Sub
2. Create a UserForm named Comment1 and add a label named lblComment and an
OK button.
3. Add the following code to the UserForm:
Private Sub OK_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.lblComment.Caption = Range("A10").Comment.Text
End Sub
4. Add a comment into A10 of the sheet.
The code is designed to launch the userform with the comment displayed
whenever any lf the specified cells are selected A1, C1, E1.
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
