Error 400 - help

Hello,

I have a strange error 400 and do not know from where come from.
Someone has an idea about it?

Ina

In my experience, this is some intermittent error internal to Excel - not
directly related to your code although it may be stimulated by your code. I
would try shutting excel down and reopening it and see if it goes away.

--
Regards,
Tom Ogilvy

No I tried it but I do not know. I can not go on. do you thing I need
to select a specific reference.

Ina

I have this sub which erases everymodule and code I have before
saving, I do not know if it can be that:

Sub SaveAsWithoutCode()

Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp

End Sub

and I placed it normally here in the workbook_open:

Public Sub Save_Exit()

SaveAsWithoutCode
Application.Quit
ThisWorkbook.Close SaveChanges:=True
End Sub