Примени в начале макроса    
Application.ScreenUpdating = False  
и в конце перед end  
Application.ScreenUpdating = True  
 
Возможно не будет зависать!

Вот этот замечательный макрос. Кстати тут же мне и помогли люди добрые с ним.      
   
Sub align_comments()  
Dim x As Comment  
For Each x In ActiveSheet.Comments  
x.Shape.TextFrame.AutoSize = True  
x.Shape.TextFrame.Characters().Font.Size = 8  
x.Shape.TextFrame.Characters().Font.Name = "Tahoma"  
x.Shape.Left = x.Parent.Offset(0, 1).Left + 10  
x.Shape.Top = x.Parent.Top  
Next  
End Sub

Некоторое торможение дает установление этого свойства:  
 
x.Shape.TextFrame.AutoSize = True  
 
Но небольшое, порядка секунды на 2000 примечаний (XL2000, PII-300).  
Попробуйте снять это свойство:  
 
Sub CommentsNoAutosize()  
Dim x As Comment  
For Each x In ActiveSheet.Comments  
x.Shape.TextFrame.AutoSize = False  
Next  
End Sub