Макрос для очистки Excel

Небольшой макрос для очистки файла Excel от мусора, что поможет так-же уменьшить его размер.

Для запуска редактора макросов в Excel нажимаем Alt+F11, вставляем и запускаем следующий макрос:

{code}

sub DelObject()

     For Each i In ActiveSheet.Shapes

          i.Delete

     Next

end sub

{lang}vb{highlight}{end-code}