Maybe something like

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel as Boolean)


Cancel = true
Application.Enablevenets = False
me.saveas Me.Range(Myfilename)
Application.Enablevenets = true


End Sub

will save correctly each time user is trying to save, so quite
drastically;)

Dm Unseen