MS Excel - Como efetuar o refresh para todas as pivot tables da minha planilha com VBA?

Simples assim:

Function RefreshPT dim w as worksheet, p as pivottable

for each w in thisworkbook.worksheets for each p in w.pivottables p.refreshtable p.update next next

End Function