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.