-
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,
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,
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules