Save to location not working

[S Oberlander]

I'm using this for a while, it saves the unedited file as a backup to the server. Now it just saves to the local documents folder and I can't figure out why.

ChDir "R:\Monthly Reports\Plus\Unedited"
     ActiveWorkbook.SaveAs Format(Date, "m-d-yyyy"), FileFormat:=50, CreateBackup:=False

 

[saboh12617]

Hello,
Try using the full path directly in .SaveAs:

ActiveWorkbook.SaveAs "R:\Monthly Reports\Plus\Unedited" & "\" & Format(Date, "m-d-yyyy"), FileFormat:=50, CreateBackup:=False