How to drag and drop multiple filters at once in a pivot table?

Hello Excel Forum,
I have the attachced pivot table.

I wanted to drag and drop fileds "scrub01 to "scrub32" into the "Report Filter" panel.
I have manually dragged and dropped one by one.

Q:
Of course I can do this, but would like to ask if there are any efficinet way to drag and drop all the fileds "scrub01 to "scrub32" into the "Report Filter" panel at once.

Thanks for the help.
Mirisa

Hello Andy Pope,

Thank you very much for this (I think) excel macro statement.

for i=1 to 32:ActiveSheet.PivotTables("PivotTable2").PivotFields("scrub" & format(i,"00")).Orientation = xlPageField:ActiveSheet.PivotTables("PivotTable2").PivotFields("scrub" & format(i,"00")).position=1:next i

Given my basic knowledge could I ask how to implement this statement in the "Book7.xlsx" file?

Should I re-type above statement in somewhere in the "Book7.xlsx" file?

Thanks
Mirisa

Hi Andy Pope and Oeldere,
Many thanks to both of you for this expert knowledge.

Regards
Mirisa

Hi All
I have a book that has several (some linked) spreadsheets... Recently some of the spreadsheets formulas were/have been converted to date format. I have changed them back to general format & saved. When re-opening this
book some of the cells formats have been converted back to "date" format.... This is getting frustrating. Can someone help me please

Regards

Mike