1 2 3 4 5 6 7 8 9 10 11 12 13 | 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, "" |