How to VBA code for this scenario?

[dener123]

Hi guys,
I need help in writing a code for the following scenario:

If more than 0 graph exists in "Sheet 1", delete all graph in "Sheet 1" ONLY.

 

[iggydarsa]

Sub DeleteAllChartsInSheet1()    
   Dim ws As Worksheet    
   Dim co As ChartObject    
   Set ws = ThisWorkbook.Sheets("Sheet 1")    

   For Each co In ws.ChartObjects        
      co.Delete    
   Next co
End Sub

 

[dener123]

Sub DeleteAllChartsInSheet1()   
   Dim ws As Worksheet   
   Dim co As ChartObject   
   Set ws = ThisWorkbook.Sheets("Sheet 1")   

   For Each co In ws.ChartObjects       
      co.Delete   
   Next co
End Sub

Thanks!!!