Select Case TypeName(ThisWorkbook.Sheets(1))
    Case "Worksheet"
         Select Case ThisWorkbook.Sheets(1).Type
             Case xlWorksheet:            iType = "Рабочий лист"
             Case xlExcel4MacroSheet:     iType = "Лист макросов"
             Case xlExcel4IntlMacroSheet: iType = "Междун. лист макросов"
         End Select
    Case "Chart":       iType = "Лист диаграммы"
    Case "Module":      iType = "Лист модуля (модульный лист)"
    Case "DialogSheet": iType = "Лист диалога (диалоговый лист)"
End Select
 
MsgBox iType, vbInformation, ""