Overwrite existing workbook without prompting

Try so:

Sub Macro1()
   ExistFile = Dir(FileToSave)
   If ExistFile <> "" Then
      Kill FileToSave
   End If

   'Then save file    
   ThisWorkbook.SaveAs (FileToSave)
End Sub

Regards,
Antonio

Thanks Antonio, that's solved it perfectly!