Deleting every chart sheet

[Pokman]

Hi guys, I have this little VBA code which deleted all my worksheet except those I listed there. My question is how to make this delete the chart sheets too. I have some sheets which is only a chart, VBA sees it as chart but I want to delete those too.

 

[smozgur]

Welcome to the MrExcel Message Board!

First, change the declaration of the xWs variable to be Object instead of Worksheet.
Then use the Application.ActiveWorkbook.Sheets instead of Application.ActiveWorkbook.Worksheets.

A standalone chart is not a Worksheet, however, it is a subclass of Sheet which is also a superclass of a Worksheet. So, both object types will be processed in the loop when you use Application.ActiveWorkbook.Sheets.

(I moved your question from the MrExcel Books forum to here. Please ask your future Excel questions in the Excel Questions forum, and other related questions in the corresponding question forum).

 

[rlv01]

In general, like this:

    Dim oSheet As Object

    For Each oSheet In ActiveWorkbook.Sheets
        Debug.Print oSheet.Name
        '
        '  code here
        '
    Next oSheet

(Tip: when posting code, please try to use 'code tags' to format the code as I have done above

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com

it makes the code easier to read.)

 

[Pokman]

Thanks, it's working as it should now.

 

[smozgur]

Thanks, it's working as it should now.

You're welcome. Thanks for the feedback.