Problem beim Arbeitsmappe kopieren mit VBA

Private Sub KopieSpeichern(Dateiname As String)
Dim aktWKB As Workbook
Dim newWKB As Workbook
Dim fromWKS As Worksheet
Dim toWKS As Worksheet
Set aktWKB = ActiveWorkbook
Set fromWKS = aktWKB.Worksheets("Projektkategorisierung") ' "" Then
MsgBox "Ordner ist schon vorhanden"
Else
Antwort = MsgBox("Der Ordner " & Ord & " ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort = vbYes Then
'Falls kein LW angegeben ist, erstellt die MkDir-Anweisung
'den neuen Ordner auf dem aktuellen LW.
'LW wurde aber durch "C:\PKB\" festgelegt
MkDir Ord
MsgBox "Ordner " & Ord & " angelegt"
Else
MsgBox "Es wurden keine Änderungen vorgenommen"
End If
End If
newWKB.SaveAs Filename:=Dateiname, FileFormat:=52
newWKB.Close
End Sub