Compatibility Checker & Recalculate formula Messages

[kamalmalek]

dear,
could you please help me of this code
actually every time i run macro give 2 alert messages as snapshots,


23008





what can i do to let file save without any alert?





Dim Path As String
Dim d As String


Path = "\\xxx\Oct"


If Len(Dir(Path, vbDirectory)) = 0 Then
MsgBox "Path does not exist.", vbCritical
Exit Sub
End If


d = Format(Date, "dd-mm-yyyy")
If Len(Dir(Path & d, vbDirectory)) = 0 Then MkDir (Path & d)


ActiveWorkbook.SaveAs Filename:=Path & d & "" & "Sum Report" & ".xls", FileFormat:=xlNormal






End Sub

Thanks,

[p45cal]

Untick the box in the picture which reads:
Check compatibility when saving this workbook
?

[kamalmalek]

Dear,
Even press untick on box, next time it will show me same message and this macro run as per schedule time so file will not save till i come and press continue,

[p45cal]

see:
https://stackoverflow.com/questions/2774160/vba-prevent-excel-2007-from-showing-a-defined-names-message-box