Slet diagram ark

Kære alle

Nedenstående grå i krakkemut hvis der er diagramark i filen?

Kan nogen hjælpe?

1000 tak

S :o]

Private Sub SletEvtAfdArk()

Dim ws As Worksheet

For Each ws In Sheets
  If ws.Visible Then ws.Select (False)
  Application.DisplayAlerts = False
    If Left(ws.Name, 11) = "Overblik - " Then ws.Delete
  Application.DisplayAlerts = True
Next

End Sub