Can an expert throw any light on this.
I use the below to save files without any problems.
Other colleagues also use without problems.
But some colleagues get the Methd SaveAs error.
I have noted that if the year [2015] file is in the folder it works for everyone every time
If the year is not in the folder it falls over with the error, so it is not creating the Year Folder.
Sub MonthFolder()
Dim sFilename As String
Dim sPath As String
sFilename = "Test File " 'Set filename
sPath = "C:\ABC\XYZ" 'Set base path"
If Right(sPath, 1) <> "\" Then sPath = sPath & "\" 'Check for "\"
sPath = sPath & Format(Date, "yyyy\\m mmm yyyy\\")
If Dir(sPath, vbDirectory) = "" Then 'If folder doesn't exist, create it
Shell "cmd /c mkdir """ & sPath & """"
End If
ActiveWorkbook.SaveAs sPath & sFilename & Format(Date - 1, " ddmmmyy") & ".xls"
End Sub