[vba]Код
Sub Починить_структуру() 
 '--------------------------------------------------------------------------------------- 
 ' Procedure    : Починить_структуру 
 ' Author       : Pavel55 
 ' Topic_HEADER : "Обьект невозможно перместить за пределы листа" - ??? 
 ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=7886 
 ' Post_Author  : Pavel55 
 ' Post_URL     : 
 ' DateTime     : 19.01.2009, 12:05 
 ' Purpose      : позволяет устранить ошибку при скрытии столбцов "Объект невозможно переместить за пределы листа" 
 ' Notes        : устанавливает свойство каждого комментария "перемещать и изменять объект вместе с ячейками" 
 '--------------------------------------------------------------------------------------- 
    Dim iComment As Comment 
    For Each iComment In ActiveSheet.Comments 
       'iComment.Shape.Placement = xlMoveAndSize 
       iComment.Shape.Placement = xlMove 
       iComment.Shape.TextFrame.AutoSize = True 
    Next 
    MsgBox "Все комментарии на листе обработаны!" & vbCrLf & "Теперь структура глючить не должна.", vbInformation, "Комментарии" 
 End Sub