Adding Comments

K

Kim

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
 
B

Bob Phillips

Kim,

Her is an example that works on the current selection.

--

HTH

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

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)
 
K

Kim

Perfect! Thanks!

Kim

Bob Phillips said:
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)
 
Top