Comment Indicators

[Deb]

Something has happened to a spreadhseet whereby all the comments have really
long indicators spreading down over multiple cells. How can these be
corrected without doing each one at a time?
Thanks for help
D

[Jason Morin]

Try running this macro:

Option Explicit
Sub ResetComments()
Dim ws As Worksheet
Dim CmmtRng As Range
Dim cell As Range
Dim CopyTxt As String

Set ws = ActiveSheet
Set CmmtRng = ws.Cells.SpecialCells(xlCellTypeComments)

For Each cell In CmmtRng
With cell
CopyTxt = .Comment.Text
.Comment.Delete
.AddComment
.Comment.Text Text:=CopyTxt
.Comment.Visible = True
End With
Next

End Sub

---
To run, press ALT+F11, go to Insert > Module, and paste
in the code above. Press ALT+Q to close. Go to Tools >
Macro > Macros.

HTH
Jason
Atlanta, GA

>-----Original Message-----
>Something has happened to a spreadhseet whereby all the
comments have really
>long indicators spreading down over multiple cells. How
can these be
>corrected without doing each one at a time?
>Thanks for help
>D
>.
>

[Debra Dalgleish]

There's sample code here to reset the comments:

http://www.contextures.com/xlcomments03.html#Reset

Deb wrote:
> Something has happened to a spreadhseet whereby all the comments have really
> long indicators spreading down over multiple cells. How can these be
> corrected without doing each one at a time?
> Thanks for help
> D


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html