expanding all pivot table reports to sheets

[tonyworkssmarter]

hi

I have a macro that filters and creates a pivot table, all i want to do now is open each item in the pivot table as new sheets.

Normally i double click each items total and it opens a new sheet with the items data.

however on my work i have over 40 that need to be opened at once.

i have attached a sample pivot table with data from google.

please help me create a macro to open all items that would normally be double clicked in the total field in there own sheet and if possible rename the sheet based on a value in the sheet e.g state

thanks.