Command Button to reset PivotTable Fields to "Show All" - Run Time Error 1004

I've seen a few forum posts on this but the suggestions are still not working for me. I've attached a smaller version of my spreadsheet. I'm pulling data from "Data Entry" and the PivotTable is on "Full Query". I would like to use the command button to have it reset all the PivotFields but keep getting the error "Unable to get PivotItems property from the PivotField class".

I'm hoping someone can look at the code below that I have in there and also my spreadsheet to figure out what I'm doing wrong.

Thanks ahead of time!

Please Login or Register  to view this content.