I need help with writing better performance code for comments formating.
Here is my code:

For Each c In Cells.SpecialCells(xlCellTypeComments)

c.Comment.Visible = True
c.Comment.Shape.Select True
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
.AutoSize = True
.Left = c.Left + c.Width + 3
.Top = c.Top + 2
End With
c.Comment.Visible = False
Next c

In sheet with ~550 comments it takes about 4 minutes.
Do you have any ideas ?