Sub Починить_примечания()   'FixComm()

Dim iComment As Comment, A_Size As Boolean
Select Case MsgBox("Включить у всех примечаний автоподбор размера?", vbYesNoCancel + vbQuestion, "Как настроить примечания?")
    Case vbCancel: Exit Sub
    Case vbYes: A_Size = True
    Case vbNo
End Select
i = 0
For Each iComment In ActiveSheet.Comments
    With iComment.Parent
        iComment.Shape.Placement = xlMove
        If A_Size Then iComment.Shape.TextFrame.AutoSize = True
        iComment.Shape.Top = .Top - 10
        iComment.Shape.Left = .Left + .Width + 10
    End With
    i = i + 1
Next
MsgBox "Положения окон комментариев исправлены: " & i & " шт.", vbInformation, ""
End Sub