Update Filter several Pivot Table by day

Hi,

I have made a macro that sometimes it works and sometimes not. When i depurate, stop, pause and play again the macro, it works. I dont know why. Anyway, the code is not good. I think i am almost there, but i need your help to solve it.

The code error is:

Run-time error 1004. Unable to get the Pivot Tables property of the Worksheet Class

So, when i depurate, the first "with" line appears as yellow.

Following the code:

Please Login or Register  to view this content.

What i want to do is update 13 pivot tables by a period of days. All of this pivot tables are gonna update the 13 pivot graphs.

I cant not use the slicer because this plan are gonna be used in excell 2007.

Thank you.