Заменить существующий файл.

[agregator]

Здравствуйте уважаемые программисты. При сохранении файла как "Y:\Папка\Путевки.xls"

ActiveWorkbook.SaveAs Filename:="Y:\Папка\Путевки.xls", FileFormat:= _
        xlNormal
    ActiveWorkbook.Close

Появляется окно. "Файл ‘Путевки.xls’ уже существует. Заменить его? Да Нет"
Напишите пожалуйста код, который сохраняет существующий файл без необходимости нажимать Да.

[VictorM]

Sub Сохранить()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Temp\Сохранить.xls", FileFormat:= _
                          xlNormal
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
End Sub

[SAS888]

Перед процедурой сохранения файла, запретите вывод сообщений с помощью

Application.DisplayAlerts = False

[agregator]

Спасибо, всем за помощь. Работает как надо.