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

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

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

sub DelObject()
     For Each i In ActiveSheet.Shapes
          i.Delete
     Next
end sub