VBA Code to Save into a Network Drive

[Bob Phillips]

You are missing a path separator

Dim ThePath As String 
 
ThePath = "G:\NARS Planning\Open Order Reports" 
ActiveWorkbook.SaveAs Filename:=ThePath & Application.PathSeparator & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook

or

Dim ThePath As String 
 
ThePath = "G:\NARS Planning\Open Order Reports" & Application.PathSeparator
ActiveWorkbook.SaveAs Filename:=ThePath & "NARS Open Order Report " &  Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook