Schalte die Fehlererkennung für den Löschversuch ab. Wenns das Arbeitsblatt gab, ist es anschließend weg. Wenns das Blatt nicht gab, kommt keine Fehlermeldung

Sub Löschen()
  On Error Resume Next
  ThisWorkbook.Charts("DiagrammBlatt").Delete
  On Error GoTo 0
End Sub