Komplettes Excel Sheet kopieren mit Formaten

Sub BlattAktualisieren()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
'Der Pfad ist hier nur Beispielhaft
ExportDatei = "C:\Users\TestUser\Desktop\TestDatei.xlsx"
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
'Vorhandene Grafiken, Bilder und Diagramme im Zielsheet entfernen
WBZiel.Sheets("Controlling").Pictures.Delete             'Bilder löschen
WBZiel.Sheets("Controlling").ChartObjects.Delete         'Diagramme löschen
WBZiel.Sheets("Controlling").DrawingObjects.Delete       'Formen/Textfelder löschen
'kopieren des Blattinhaltes und Schließen der Quell-Datei
With WBQuelle
.Sheets("Cockpit").Range("A1:Z500").Copy WBZiel.Sheets("Controlling").Range("A1")
.Close savechanges:=False
End With
WBZiel.Sheets("Controlling").Activate
Application.ScreenUpdating = True
End Sub