Looping through chart worksheets

[stuartmarsh]

I am trying to use a loop to delete any worksheet that ends in 'Chart' using the following code:

Dim ws As Worksheet
For Each ws In Worksheets
If Right(ws.Name, 5) = "Chart" Then ws.Delete
Next

However, this code does not appear to pick up worksheets created with through the chart wizard.
I have stepped through the code and can see that it skips the worksheet with a chart.
Are chart worksheets different in some way to normal worksheets?
Please help!

[Dave Peterson]

There are different types of sheets that can be in a workbook.

Worksheets
Chart Sheets
Macro Sheets
International Macro Sheets
Dialog sheets

If you want to loop through all the sheets:

dim ws as object
for each ws in Sheets
....


stuartmarsh wrote:
>
> I am trying to use a loop to delete any worksheet that ends in 'Chart'
> using the following code:
>
> Dim ws As Worksheet
> For Each ws In Worksheets
> If Right(ws.Name, 5) = "Chart" Then ws.Delete
> Next
>
> However, this code does not appear to pick up worksheets created with
> through the chart wizard.
> I have stepped through the code and can see that it skips the worksheet
> with a chart.
> Are chart worksheets different in some way to normal worksheets?
> Please help!
>
> --
> stuartmarsh
> ------------------------------------------------------------------------
> stuartmarsh's Profile: http://www.excelforum.com/member.php...o&userid=22142
> View this thread: http://www.excelforum.com/showthread...hreadid=571344

--

Dave Peterson

[stuartmarsh]

Thanks that sorted it.