I'll try and explain, and then confuse you further by asking a question of
my own!

As with many objects in Excel, different types of sheet can be identified
with a Type value (a constant). "Worksheets" and "Charts" (ie chart sheets)
are each collections of specific types of sheets, which in turn are included
in the overall "Sheets" collection. There are two more "Types" of sheet, and
yet another one that's not a sheet.

Try this in a new workbook, and press Ctrl G to see the Immediate window
(debug view)

Sub Test()
Dim i As Byte
Dim aType(1 To 4) As Long
Dim sht As Object
aType(1) = xlWorksheet '-4167
aType(2) = xlChart '-4109, or is it 3?
aType(3) = xlExcel4MacroSheet '3
aType(4) = xlExcel4IntlMacroSheet '4
Debug.Print "< i ", "Type applied", "Type returned"

For i = 1 To 4
Set sht = Sheets.Add(, , , aType(i))
Debug.Print i, aType(i), sht.Type
' Application.DisplayAlerts = False
' sht.Delete
Next
Application.DisplayAlerts = True
End Sub

If you've run this you may guess my question -
why doesn't Chartsheet.Type return -4109 ?

And finally, when's a sheet not a sheet - when it's a DialogSheet which
cannot return sht.type, and would error if attempted.

Regards,
Peter T

"CLR" wrote in message
...
Thanks anyway Nick, but that is totally "Greek" to me...

Vaya con Dios,
Chuck, CABGx3



"Nick Hodge" wrote:

Just run some code to find the type and send it to the debug window

For each sh in thisworkbook.sheets
Debug.Print sh.type
Next sh

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"CLR" wrote in message
...
Sorry about that Nick............I didn't see your post on my
newsgroup
until AFTER I had already responded to Shawn's, and then came home
from
work.......... yet here at home it shows as coming in BEFORE
his.......if
any event, your's works great as well............I asked for 1-50
because
I
thought I wanted to adjust the range from time to time.........both of
you
guy's macros delete ALL of the charts, which is fine-ok in this
case..........if I make 20 charts and delete them manually, the next
chart
comes up #21, and if I go ahead then and make another 30 then I'm up
to
Chart #50 but only have 30.........that's why I asked the question the
way
I
did........thought I could take it out well beyond the range I might
use.......but deleting them all works too.......It's interesting to
see
two
different versions of code to do the same thing..........BTW, "where"
does
one find out that "sht. Type=3" is applicable in this case?

Thanks again,
Vaya con Dios,
Chuck, CABGx3




"Nick Hodge" wrote in
message
...
Chuck

Your question is a little ambiguous as you say it creates 37charts
but
you
want to delete 1 to 50. If it is ALL chart sheets you want to delete
the
code below will do it

Sub DeleteChartSheets()
Dim sht As Object
Application.DisplayAlerts = False
For Each sht In ThisWorkbook.Sheets
If sht.Type = 3 Then sht.Delete
Next sht
Application.DisplayAlerts = True
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"CLR" wrote in message
...
Hi All......

I am working on a program that creates 37 different Charts. Each
gets
created as it's own sheet/tab. I never know how many will be
created/deleted
during the course of a session. When the session is complete, I
would
like a
macro to delete all Chart Tab/sheets, regardless of their "Chart
22" or
"Chart 12" numbers which Excel assigns them....I would like it to
delete
all
existing Chart/tab between numbers 1 and 50 inclusive, but NOT
non-chart
tabs/sheets. Recording the macro, just don't seem to get me
there.......any
help would be much appreciated.

TIA
Vaya con Dios,
Chuck, CABGx3