let pi = Worksheets.Item(1).PivotTables(1).PivotFields("salesman")
if(pi.AutoShowType == xlAutomatic){
    let rn
    let r = pi.AutoShowRange
    if(r == xlTop){
        rn = "top"
    }
    else{
        rn = "bottom"
    }
    MsgBox("PivotTable report is showing " + rn + " " + pi.AutoShowCount + " items in " + pi.Name + " field by " + pi.AutoShowField)
}
else{
    MsgBox("PivotTable report is not using AutoShow for this field")
}