Try using ThisWorkbook.Saved = True
Application.DisplayAlerts = False
currentBook.SaveAs Filename:=fileNameS, FileFormat:=xlCSV, ConflictResolution:=xlLocalSessionChanges
currentBook.Saved = True
currentBook.Close SaveChanges:=False
Application.DisplayAlerts = True