function UseCubeField(){
    let objNewSheet = Worksheets.Add()
        objNewSheet.Activate()
    let intRow = 1
    let objPF = Worksheets.Item(1).PivotTables(1).PivotFields
    for(let i = 1; i <= objPF.Count; i++){
        if(objPF(i).CubeField.CubeFieldType == xlHierarchy){
            objNewSheet.Cells.Item(intRow, 1).Value2 = objPF(i).Name
            intRow++
        }
    }
}