Save as CSV with semicolon separator

Question

I\'m currently use this function for saving, but I have a problem with it:

Private Sub spara()
    ActiveWorkbook.SaveAs Filename:=\"T:\\filepath+ ActiveWork         


        

Answer 1

I solved it adding "SaveChanges:=False" when closing workbook

With ActiveWorkbook
     .SaveAs Filename:="T:\filepath+ ActiveWorkbook.Name", FileFormat:=xlCSV, Local:=True
     .Close SaveChanges:=False
End With