Есть таковые макросы:  
 
 
Sub onTime()  
    Application.onTime TimeValue("18:15"), "NoFormulas"  
 
End Sub  
 
Sub replace()  
 
Application.ScreenUpdating = False  
Worksheets(1).Activate  
Cells.Select  
Selection.Copy  
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
   :=False, Transpose:=False  
Application.CutCopyMode = False  
 
ActiveWorkbook.SaveAs Filename:= _  
"C:\Documents and Settings\user\Desktop\38companies.csv", FileFormat:= _  
       xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _  
       , CreateBackup:=False  
 
   Workbooks.Open Filename:= _  
       "C:\Documents and Settings\user\Desktop\Weekly\38.xls"  
   Windows("38companies.csv").Activate  
ActiveWorkbook.Close (False)  
End Sub  
 
Задача в том, чтобы пересохранять в 18:15 этот файл в формате .csv!  
Все вроде работает, вот только выполнение запинается на диалоговом окне, потому что этот фаил уже существует.  
 
Как прописать так, что б давался ответ "Да" сохранить и заканчивалась работа макроса автоматически?