VBA Question

[JoeyGaspard]

I am trying to save a single excel worksheet as a csv file, and I have found some code that works, but I need to change the location it saves to, I need to save it to a server on my local network, the current code is below, any help is greatly appreciated!

Sub SaveAs()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "PunchReport.csv", FileFormat:=xlCSV
ActiveWorkbook.Close False

End Sub

 

[Micron]

then change ThisWorkbook.Path to whatever the path is.
Suggest that you add debug.print line after Sheets("Sheet1").Copy line and step through the code (F8) and check your path construct in the immediate window to see if it looks right. If not, halt code fix it rather than let the code continue to run.