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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
news:[email protected]...
> Kim,
>
> Her is an example that works on the current selection.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Kim" <[email protected]> wrote in message
> news:[email protected]...
> > 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" <[email protected]> wrote in message
> news:[email protected]...
> > Kim,
> >
> > Her is an example that works on the current selection.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "Kim" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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
> >
> >
>
>
>