Run-time error 13 type mismatch in Excel 2007 VBA when dynamically changing PivotFields

Hi All,
I am stumped. I have what should be a simple VBA script that changes a pivot table based on a user selection (radio button). When user changes selection (from show by % to show by Total) they get the above mentioned error. I have tried changing the datatypes in the underlying SQL table with no luck, and verified that the values are not null. I inherited this with no comments in the rest of the code and could really use some help finding a solution.

I'm not able to use a string value for DataLabel (i.e. DataLabel = "Sales") for other reasons. I'm sure I am missing something simple.

Here's where the error shows up (with line 5 highlighted)

Please Login or Register  to view this content.

Any and all suggestions are greatly appreciated.

Awesome. I can't see why that made a difference, but it fixed my issue! Thank you very much.

Yup. Noticed that. Had to modify it slightly and add a second variable because one of the pivots it creates calculates running totals on two columns (I didn't include that detail in the original post) but I wouldn't have ever thought of your solution on my own.

The two option buttons ended up looking like this:

Please Login or Register  to view this content.