Refreshing OLAP cube by date using VBA
 

This is example:

Sub Test_update_olap()

ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh

End Sub

But instead for just refreshing I would like to have it to refreshing for a
period of 30 days back from "today`s" date.

Eksample today it is 31 January, so I would like Pivot to refreshing data
from 1 january to 31 january, then I refresh tomorrow is should
refresh/collect data from 2 january ti 1 february and so on.

Thanks VERY much for any help :-)

Best regards
Hugo