Loop throguh sheets, perform actions on non-chart tabs

[rdw72777]

I'm trying to loop through sheets and perform actions on those tabs that aren't chart tabs. However, in trying tod etermine if a tab is a chart tab or not i'm getting hung up.

The code is bombing on the "If cht = Nothing then" line. I'm not married to this solution so any other ideas/suggestions are appreciated.

SheetCount = wkb.Sheets.Count
    
    For q = SheetCount To 1 Step -1
        Sheets(q + 1).Select
        Set cht = ActiveChart
        
        If cht = Nothing Then
            Sheets(q).Cells(1, 1).Select
        End If
                
    Next q

 

[mikerickson]

The Sheets collection includes chart sheets, the Worksheets collection does not.

Dim oneWorkSheet as Worksheet

For Each oneWorksheet in ThisWorkbook.Worksheets
    Rem do stuff
Next oneWorksheet

 

[VoG]

If you use Worksheets instead of Sheets that will exclude chart sheets. Something like

SheetCount = wkb.Worksheets.Count
For q = SheetCount To 1 Step -1
    Worksheets(q).Select
    Cells(1, 1).Select
Next q

 

[rdw72777]

Perfect VoG. I was so close, always the little thing that I forget.