You didn't say what you wanted to evaluate. I'll assume the Activesheet
Sub SheetType(
Select Case ActiveSheet.Typ
Case xlChar
MsgBox "ChartSheet
Case xlWorkshee
MsgBox "Worksheet
Case Els
MsgBox "Some rare sheet type, check out the xlSheetType enum.
End Selec
End Su
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.