Sub csv()
Application.DisplayAlerts = False
Dim ws As Worksheet
Dim Bereich As Range
Dim Zeile As Object
Dim Zelle As Object
Dim s As String

For Each ws In ActiveWorkbook.Worksheets
  ws.Activate
  Set Bereich = ActiveSheet.UsedRange
  'hier schreibst Du deinen Pfad rein
  Open "C:\Eigene Dateien\" & ActiveSheet.Name & ".csv" For Output As #1
    For Each Zeile In Bereich.Rows
      For Each Zelle In Zeile.Cells
        s = s & Zelle.Text & ";"
        Next
    Print #1, s
    s = ""
    Next
  Close #1
Next ws
Application.DisplayAlerts = True
End Sub