Comment Indicators

D

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
 
J

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
 
Top