If you only want to work with the Worksheets collection instead of the
Sheets collection, so Charts are not even included.
Dim WS as WorkSheet
For Each WS in Worksheets
'etc

NickHK

"Type of Sheet displayed"
wrote in message ...
Joergen,

As with the others, thank you much. This worked very well also.

Bryan

"Joergen Bondesen" wrote:

Hi Bryan.

Try belowe, please.

Sub shtyp()
MsgBox TypeName(ActiveSheet)
End Sub

'or

Sub SheetTypes()
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
msgbox TypeName(sh)
Next
End Sub


--
Best Regards
Joergen Bondesen

"Type of Sheet displayed" <Type of Sheet
wrote in message
...
I am trying to determine the type of sheet (chart or worksheet) that is
currently active. I was filtering through the documentation and the
xlsheettype seems to be one that I could use but not having much luck
with
it. I have 38 sheets in this application and I'm configuring the
workbook
when opened. Some things I'm turing off like the column and row
headings
but
that doesn't apply to a chart sheet. Anyone have a suggestion?

Thanks,

Bryan