Sub Кнопка1_Щелчок()
'отключаем обновление экрана
Application.ScreenUpdating = False
'отключаем автопересчет формул
'Application.Calculation=xlCalculationVanual
'отключаем отслеживание событий
Application.EnableEvents = False

Dim smallrng As Range
Dim FileN$, wb As Workbook
FileN = ThisWorkbook.Path & "\" & "Форма_Информация по бронированию_" & Range("A4") & ".xls"
Set wb = Workbooks.Open(FileN)
ActiveSheet.DrawingObject.Delete   'удаление всех кнопок
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveSheet.Copy
wb.Close SaveChanges:=False
Kill FileN
Mid(FileN, Len(FileN), 1) = "sx"
ActiveWorkbook.SaveAs FileN, 56
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Текущий лист сохранен в новой книге" & FileN
'Включаем обновление экрана
Application.ScreenUpdating = True
'Включаем автопересчет формул
'Application.Calculation - xlCalculationAutomatic
'Включаем отслеживание событий
Application.EnableEvents = True

End Sub