Method delete in chart sheet

Question

I have a VBA application in an Excel Workbook. At the end of the sub I need to delete a chart. In old version of Excel (2013), method "delete" of chart sheet works perfectly. In version 2019 now this method is not supported and I can't find anything on Microsoft website.

Could you help me if exist new method to delete chart sheets?

This is the piece of code at the end of sub

For Each sht In Workbooks(Nam).Sheets 
    If sht.name <> "Config" Then
        Workbooks(Nam).Sheets(sht.name).Delete
    End If
Next

When is selected the chart sheet I receive this error:

Run-time errore '1004': Error in method Delete of Chart class

Thanks

Your code works perfectly with Office 365. Try macro recorder! — simple-solution, Mar 17 '22 at 08:25
Keep in mind you cannot delete the only sheet in the workbook, if that's the problem. — braX, Mar 17 '22 at 08:36
Not solution to your problem but I believe `Workbooks(Nam).Sheets(sht.name).Delete` can simply be `sht.Delete`. — Raymond Wu, Mar 17 '22 at 08:42

score 1 · Answer 1 · answered Mar 17 '22 at 13:39

It sounds as though you just need to delete the chart sheets from the workbook. I agree that your code looks as though it would, but here is a slightly different approach that may work in your environment.

VBA has three collections for working with sheets in a workbook. Sheets is a collection of all sheets regardless if they are worksheets or chart sheets. Worksheets is the collection of all worksheets. Charts is the collection of all charts. The code below deletes all chart sheets from the current workbook.

Sub delete_chart_sheets()
    Dim chrt As Chart
    Dim nam As String
    nam = ThisWorkbook.Name
    
    Application.DisplayAlerts = False
    For Each chrt In Workbooks(nam).Charts
        chrt.Delete
    Next

End Sub

score 0 · Answer 2 · answered Mar 18 '22 at 07:40

0

I have found the issue.

Before the delete of the sheets, I call a function for protect all sheets. Removing this function, now it's works perfectly :D

Thanks to all

answered Mar 18 '22 at 07:40

chianta

123
1
2
12

Method delete in chart sheet

2 Answers2