Public Function GetSheetTypeName(ByVal objWkb As Workbook, _
      ByVal vsSheetName As String) As String

  On Error GoTo err_GetSheet
  If Len(objWkb.Sheets(vsSheetName).Name) > 0 Then
      GetSheetTypeName = TypeName(objWkb.Sheets(vsSheetName))
      Exit Function
  End If

err_GetSheet:
End Function

Public Sub Demo_Start()
  Dim strSheetName As String
  Dim strTypeName As String

  strSheetName = "Tabelle2"
  strTypeName = GetSheetTypeName(ActiveWorkbook, strSheetName)

  If Len(strTypeName) > 0 Then
      MsgBox "Blattname: " & strSheetName & vbCrLf & _
            "Blatt-Typ:  " & strTypeName, vbInformation

  Else
      MsgBox "In der Arbeitsmappe ist kein Blatt namens '" & _
             strSheetName & "' vorhanden !", vbInformation
  End If
End Sub