Hallo,
ich möchte bei folgendem Makro noch hinzufügen, dass immer in Laufwerk (L:) gespeichert wird - der Dateiname ändert sich (je nach Anzahl der Blätter):
For Each objWS In ActiveWorkbook.Worksheets
objWS.Copy
With ActiveWorkbook
.SaveAs objWS.Name, FileFormat:=x1CSV, local:=True
.Close False
End With
Next objWS