According to this Link, the Local variable works correctly when you use Workbook.SaveAs, but always use a comma as a separator when trying to save a specific worksheet (for example, Worksheet (2). SaveAs).
Therefore, creating a new book and copying data into it should work:
Orig.Sheets(2).Range("A1:Q999").Copy
Set Export = Workbooks.Add
With Export
.Worksheets(1).Range("A1").PasteSpecial (xlPasteValues)
.SaveAs Filename:=Path & "\Name.csv", FileFormat:=xlCSV, Local:=True
.Close SaveChanges:=False
End With
source
share