Worksheet Loop Macro Using InStr, maybe

SBF12345

Well-known Member
Joined
Jul 26, 2014
Messages
614
Greetings,

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

Code:
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
 
You could avoid all the testing by looping through the worksheet's Charts object

Code:
Dim oneChart as Chart

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

or even
Code:
ThisWorkbook.Charts.Delete
 
Last edited:
  • Like
Reactions: shg
Upvote 0

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).

Forum statistics

Threads
1,224,823
Messages
6,181,185
Members
453,020
Latest member
Mohamed Magdi Tawfiq Emam

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top