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
|