Worksheet Loop Macro Using InStr, maybe

[SBF12345]

Greetings,

I would like to build a simple macro to delete charts in the activeworkbook. I have the following written below:

Dim x As Worksheet

    For Each x In ActiveWorkbook.Worksheets


        If InStr(1, ActiveWorkbook.Worksheet(x).Name, "Chart", 1) Then


        ActiveWorkbook.Worksheet(x).Delete


        End If


    Next x

I'm not sure that InStr is the correct function here. I would like a true or false value to return whether the word "Chart" is or is not present in the name. It should always be the first 5 characters of the worksheet name

 

[mikerickson]

You could avoid all the testing by looping through the worksheet's Charts object

Dim oneChart as Chart

For Each oneChart in ThisWorkbook.Charts
    oneChart.Delete
Next oneChart

or even

ThisWorkbook.Charts.Delete

 

[shg]

Doh!

 

[SBF12345]

Good to know, Thanks mikerickson!