R
Richard
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
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