Убрать кнопку при отправке (Excel)

        .Copy                    'копируем лист "Отчет за смену" в новую книгу
                    '(она автоматически становится активной)
                    
         ActiveSheet.Shapes("Button 1").Delete

        With ActiveWorkbook                             'в новой книге со скопированным листом "Отчет за смену"
            With .Sheets(1)                             'на листе "Отчет за смену"
                If rng.Rows.Count > 1 Then                   'если в диапазоне больше 1 строки, то
                .Rows(2).Resize(rng.Rows.Count - 1).Delete   'удаляем строки со 2 по предпоследнюю включительно
                End If
                .Range(.Rows(3), .Rows(3).End(xlDown)).Delete 'удаляем все строки ниже последней непустой строки
                .SaveAs strFile$, 56                    'сохраняем книгу во временную папку
            End With
            .Close                    'закрываем временную книгу
        End With