Hi Jahrens,

I think you may try to use the code snippet below to see if that helps you.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ThisWorkbook.Saved = True
ThisWorkbook.SaveAs "C:\testABC.xls"
SaveAsUI = False
Cancel = True
End Sub

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.