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


Untitled.jpg





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,