Fehler beim speichern eines Workbooks aus Tabelle

Sub Export()
Dim wks As Worksheet
Dim Sett As String
Dim Sett2 As String
Dim varDateiname As Variant
Dim ws As Worksheet
Dim wkb1 As Variant
Dim wkb2 As Variant
Set wkb1 = ActiveWorkbook
Sett = Application.Range("M2:M3").Address
Sett2 = Application.Range("M6:M10").Address
varDateiname = Application.GetSaveAsFilename("Einstellungen.xls", "Microsoft Excel-Dateien ( _
*.xls),*.xls")
'Worksheets("Temp").Delete
If TypeName(varDateiname) = "String" Then
Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets. _
Count))
ws.Name = "Temp"
Workbooks("wkb1").Sheets("Zeitrechnung").Range(Sett).Value = Workbooks("wkb1").Sheets(" _
Temp").Range(Sett).Value
Workbooks("wkb1").Sheets("Zeitrechnung").Range(Sett2).Value = Workbooks("wkb1").Sheets(" _
Temp").Range(Sett2).Value
ActiveWorkbook.Sheets("Temp").SaveAs varDateiname
Application.DisplayAlerts = False
Sheets("Temp").Delete
Application.DisplayAlerts = True
MsgBox "Dateiname :" & vbLf & vbLf & varDateiname, vbOKOnly + vbInformation, "Datei  _
wurde gespeichert :"
End If