Making all pivot items invisible before doing Do Loop

Hi there

Appreciate any help as I am building on from this post here
I have the below bit of code that I want to go through my pivot chart and make the last 7 days of data visible.

Here I am assuming that the date 07/09/2011 is the only date visible in the pivot chart. So when I run this macro the 12/09/2011 to the 18/09/2011 will also be visible in the pivot chart.

So when the below macro is finished I will end up with 07/09/2011, and 12/09/2011 to the 18/09/2011 all visible.

But what I want to do is make all dates invisible first and then go through my Do Loop making the the 12/09/2011 to the 18/09/2011 all visible.

Can anyone suggest hot the best way is of doing this?

Sub ShowAllItems7Days_test()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim objPT As PivotTable
Dim objPTField As PivotField
Dim objPTItem As PivotItem

Dim LastDate As Date
Dim LastDate7 As Date

LastDate = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp) + 1
LastDate7 = LastDate - 7

MsgBox "LastDate is:" & LastDate & vbCrLf & "LastDate7 is:" & LastDate7 & vbCrLf

For Each ws In Worksheets
ws.Visible = xlSheetVisible
    For Each objPT In ws.PivotTables
 MsgBox "Pivot table name: " & objPT.Name & vbCrLf & "Sheet name: " & ws.Name & vbCrLf & "test"
                                    
          
              Do Until LastDate = LastDate7
              MsgBox "inside Do:" & LastDate7 & vbCrLf
                With objPT.PivotFields("date")
                .PivotItems(LastDate7).Visible = True
                            
                End With
               LastDate7 = LastDate7 + 1
              Loop
    
    MsgBox "LastDate is:" & LastDate & vbCrLf & "LastDate7 is:" & LastDate7 & vbCrLf
          
            
            
            
    Application.ScreenUpdating = True
 
    Next objPT
Next ws
   
 
End Sub

Thanks