Select Max Value in a Pivot Field

I’m trying to write a macro that will select the largest value in the PivotItem field for “Workweek”. However, I get this error message with the Auto_Update macro.

Run-time error ‘1004’:
Unable to set the Visible property of the PivotItem class

Thanks for the help. I attached the workbook to this post.

Wow, that is a good idea. I "fixed" it with On Error Resume Next

Sub Auto_Update()

Dim wk1 As Worksheet
Set wk1 = ActiveWorkbook.Worksheets("Records")

Dim piItem As PivotItem
Dim lngMaxValue As Double
Set piItem = Nothing

wk1.PivotTables("PivotTable1").ClearTable

With wk1.PivotTables("PivotTable1").PivotFields("Workweek")
.Orientation = xlPageField
.Position = 1
End With

For Each piItem In wk1.PivotTables(1).PivotFields("Workweek").PivotItems
On Error Resume Next
If piItem.Value > lngMaxValue Then lngMaxValue = piItem.Value
With wk1.PivotTables("PivotTable1").PivotFields("Workweek") 'added with statement in the loop
.PivotItems(lngMaxValue).Visible = False
.EnableMultiplePageItems = True
End With
Next piItem

With wk1.PivotTables("PivotTable1").PivotFields("Workweek") 'added with
.Orientation = xlPageField
.Position = 1
.PivotItems(lngMaxValue).Visible = True
.EnableMultiplePageItems = True
End With


Debug.Print "Max value is " & lngMaxValue


End Sub