Hi

If I save my file "manually", using File, Save As, I get no issue. If I try
saving with the following code:

Sub SaveFile()

Dim strFileName As String
Dim strFilePath As String
Dim strYear As String


strYear = Worksheets("Dates").range("PrevWrkDay")
strYear = Format(strYear, "yyyy")


strFileName = "European Exchange Volume " & strYear & ".xls"

strFilePath = "\\atkams\Credit Lists\"

application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strFilePath & strFileName
application.DisplayAlerts = True

End Sub

I get run-time error '1004':
cannot access 'filename'

What am I doing wrong.

Thanks in advance
Richard