Macro to toggle Pivot - Collapse/Expand entire field

Hey guys

Need your help with VBA and pivottables.

I want to select a field in a pivottable, and then be able to click a macro button to toggle the "collapse/expand" entire field. I need a way to reference the pivot field represented by the cell that has been selected.

(Post edited and removed unnecessary info).