Identify Excel Chart Sheets 1

[rmike]

This should be simple but I can't figure it out.

I want to step through the sheets in a workbook and check to see if the selected sheet is a chart.

nsheets = sheets.count

for i = 1 to nsheets
sheets(i).select

?<code to determine if selected sheet is a chart sheet>

next i

 

[JustinEzequiel]

try something like

Dim oSheet As Object

For Each oSheet In ThisWorkbook.Sheets
  If TypeOf oSheet Is Chart Then
    Debug.Print oSheet.Name, TypeName(oSheet)
  ElseIf TypeOf oSheet Is Worksheet Then
    Debug.Print oSheet.Name, TypeName(oSheet)
  Else
    Debug.Print oSheet.Name, TypeName(oSheet)
  End If
Next oSheet