Laufzeitfehler 1004

Private Sub BlSpeichern_Click()
Dim SavePath As String
Dim tb As Object
Dim Shp As Object
Dim vbc As Object
Dim wks As Worksheet
Dim Blatt As Worksheet
SavePath = "F:\Lager\Bestand"
'Kopiert die aktuelle Tabelle
ActiveSheet.Copy
'Löscht die CommandButton
For Each Shp In ActiveSheet.Shapes
If Shp.Type = 12 Then Shp.Delete
Next
'Löscht alle AutoForm
'For Each tb In ActiveSheet.Shapes
'tb.Delete
'Next
For Each Shp In ActiveSheet.Shapes
If Shp.Type  13 Then Shp.Delete
Next
'Löscht die Prozeduren
For Each wks In ActiveWorkbook.Worksheets
With ActiveWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
'Speichert die Datei unter dem Tabellennamen
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Range("E16") & " " &  _
ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & ".xls"
End Sub

Wo liegt mein Fehler.
Mit freundlichen Grüßen
Bustue