Try changing your path to c:\temp ...and if that is working. check the folder
rights in R:\

Sub autosave()
Dim strFileName as String
strFileName = "R:\service.xls"
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=strFileName
End Sub


--
If this post helps click Yes
---------------
Jacob Skaria


"John" wrote:

I am trying to create a macro that will first save the file and then second
save as to a new location and new file name.

Here is what I have and it doesn't work after the first save.

Sub autosave()
ActiveWorkbook.Save
ChDir "R:\"
ActiveWorkbook.SaveAs Filename:="R:\Service.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

I tried it with and without the ChDir "R:\" and that did not work either.

I also tried just

ActiveWorkbook.SaveAs Filename:="R:\Service.xls"

and that also did not work.

Thank you for any and all help.