Compatibility Checker & Recalculate formula Messages

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


Attachment 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,

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

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,

see:
https://stackoverflow.com/questions/...es-message-box