Hilfe, Code bleibt am Ende hängen!

Public Sub AngebotInExcelCopy()
Die Code-Zeilen machen alles was sie sollen, aber ab hier:
' Ab hier funktionieren die restlichen Code-Zeilen nicht mehr!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
With wksZiel
rngCopy.Copy
With .Range("B3")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
End With
' Weil die nachfolgende Code-Zeile hier nicht mehr funktioniert, habe ich den _
Code oben zum *Blatt einfügen* dazu geschrieben und an der Stelle geht er.
'        .Name = Range("C3").Text
End With
'___ZielDatei speichern._________________________________
wbkZiel.Save
'___Blatt wieder sperren._____________________________________
tbl_AngebotDrucken.Protect ("")
'    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
' Damit Bilder in den Druckbereich eingefügt werden können. Ansonsten kann ich nach Protect nur Text einfügen!
endmacro:
Application.ScreenUpdating = True
End Sub