Бывает, Excel страшно лагает

И часто случается, что виной тому огромное количество скрытых шелов на странице.
Благо, есть простой макрос, который поможет решить эту проблему:

Sub DeleteAllTextBox()

Dim oSh As Shape

For Each oSh In ActiveSheet.Shapes

oSh.Delete

Next oSh

End Sub

Нашелся здесь: http://baguzin.ru/wp/?p=743