delete graph in wbook

[sal21]

I use this code to delete a sheet in wbook, but why not work to dlete a sheet with a graph?

Code: Select all

Sub CANELLA_SHEET()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim WS As Worksheet
     For Each WS In Worksheets

        If WS.Name = "TEST GRAFICO" Then WS.Delete
        Next
        
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

[HansV]

A chart sheet is not a worksheet. You can look at the Charts collection instead of the Worksheets collection:

Code: Select all

Sub CANELLA_CHART()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  Dim cht As Chart
  For Each cht In Charts
    If cht.Name = "TEST GRAFICO" Then cht.Delete
  Next cht

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

[sal21]

A chart sheet is not a worksheet. You can look at the Charts collection instead of the Worksheets collection:

Code: Select all

Sub CANELLA_CHART()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  Dim cht As Chart
  For Each cht In Charts
    If cht.Name = "TEST GRAFICO" Then cht.Delete
  Next cht

  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

tks, Sal