.saveas csv anwendungsdefinierter Fehler

Sub alsCsvSpeichern()
'macht Makro schneller, da auf dem Bildschirm kein Vorgang angezeigt wird
Application.ScreenUpdating = False
'legt Variablen fest. pfadName als Variant, da verschiedene Zeichen
Dim ordnerName1 As String
Dim ordnerName2 As String
Dim ordnerName3 As String
Dim dateiName As String
Dim pfadName As Variant
Dim alterPfad As String
ordnerName1 = "GCE Wind - Synoptik"
ordnerName2 = "Bayern"
ordnerName3 = "CSV Daten"
dateiName = "Gutachten"
'4 Variablen werden zusammengeführt um einen Pfad zu erstellen
pfadName = ordnerName1 & "\" & ordnerName2 & "\" & ordnerName3 & "\" & dateiName
'Pfade und Dateiformat
'Der Pfad wird verwendet um dort die Datei zu speichern. Der Datentyp kann variiert werden.
Sheets("Gutachten").SaveAs Filename:="T:\Dokumente\" & pfadName & ".csv", FileFormat:=xlCSV, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'setzt Einstellung auf Anfang
Application.ScreenUpdating = True
Call alsMakroDateiSpeichern
End Sub