Fehler in Makro...

Ich habe in diesem Makro einen Laufzeitfehler!

Sub Rechnung_speichern()
Dim TB As Worksheet
Dim TBName$, dName
Set TB = ActiveSheet
Application.ScreenUpdating = False
TBName = "Rechnung"
Worksheets(TBName).Copy
Sheets("Rechnung").Select
Sheets("Rechnung").Select
ActiveSheet.Unprotect
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
dName = "c:\windows\temp\" & _
TB.Range("Rechnung!B13") & " " & _
TB.Range("Rechnung!H14") & ".xls"
ActiveWorkbook.SaveAs dName
ActiveWorkbook.Close
End Sub

Was habe ich falsch gemacht?

MFG W.Schleifer