Примечаний приблизительно 1 600-1700

Вот этот замечательный макрос. Кстати тут же мне и помогли люди добрые с ним.      
   
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

Подскажите пожалуйста, почему после обработки макросом книга стала открываться 2-3 минуты.  
Кол-во информации,вес книги остался прежним. Макрос был для выравнивания примечаний.  
Помогите пожалуйста решить проблемму.  
Заранее благодарен.

Hugo, спасибо тебе огромное, очень выручил.

Всем привет. Помогите пожалуйста с макросом для выравнивания примечаний. Есть 3500 строк на 4 колонки одна из которых имеет примечания (3500 примечаний). Все в ужасном состоянии.  
Нужно сделать так, что бы они выровнялись по автоматическому размеру и имели одинаковый шрифт скажем Tahoma обычный 8 размера. Заранее благодарен за помощь в решении проблеммы.