Adding Comments

[Guest]

I want to have a macro that will add a comment box to all the cells that the
interior color index = 6. Anyone have any ideas?

TIA,

Kim

 

[Dave O]

It's pretty straightforward... what should the comment box say?

 

[Bob Phillips]

Kim,

Her is an example that works on the current selection.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Bob Phillips]

Well here it is

Dim c As Range

For Each c In Selection
If c.Interior.ColorIndex = 6 Then
c.AddComment c.Address
End If
Next c

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Perfect! Thanks!

Kim

Well here it is

Dim c As Range

For Each c In Selection
If c.Interior.ColorIndex = 6 Then
c.AddComment c.Address
End If
Next c

--

HTH

RP
(remove nothere from the email address if mailing direct)