Comment Indicators
 

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

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
.

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