Hi,
I wrote the function version of the macro above
The argument of the function must be the range (cell) containing the Report Filter field..
Provided as is, not extensively tested... Enjoy!
<br />
Function ShowReportFilterItems(rng As Range)<br />...