Worksheet.Type (Excel)

Returns an XlSheetType value that represents the worksheet type.

Possible Values are xlChart - Chart, xlWorksheet - Worksheet.
Dim xstType As XlSheetType
xstType = ActiveSheet.Type