Adding Comments
 

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

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

Kim,

Her is an example that works on the current selection.

--

HTH

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


"Kim" wrote in message
...
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

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)


"Bob Phillips" wrote in message
...
Kim,

Her is an example that works on the current selection.

--

HTH

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


"Kim" wrote in message
...
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

Perfect! Thanks!

Kim

"Bob Phillips" wrote:

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)


"Bob Phillips" wrote in message
...
Kim,

Her is an example that works on the current selection.

--

HTH

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


"Kim" wrote in message
...
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