Looping Pivot Table Filter Error 5

[jbgamble18]

Hi,

I have a looping macro - it runs successfully until it gets to the the 103 item in the filter. I receive the 'Runtime error 5: invalid procedure call or argument'.

When I debug it takes me to here

    Worksheets("Labor Compliance Form").PivotTables("PivotTable2").PageFields("Contract").CurrentPage = pi.Value

Here is the full code:

Sub Macro2()
'
' Macro2 Macro
'
Dim path As String
Dim filename  As String
Dim pt As PivotTable, pi As PivotItem, pf As PivotField
Dim lLoop As Long






Workbooks.Open filename:= _
        "C:\Users\jami.gamble\Desktop\Labor Compliance (09-2018).xlsx" ' Change to suit
        ThisWorkbook.RefreshAll


path = "C:\Users\jami.gamble\Desktop\Test\" ' Change to suit




Set pt = Worksheets("Labor Compliance Form").PivotTables("PivotTable2")
Set pf = pt.PageFields("Contract")


For Each pi In pf.PivotItems


    Worksheets("Labor Compliance Form").PivotTables("PivotTable2").PageFields("Contract").CurrentPage = pi.Value
    
    filename = "Labor Compliance (09-2018) " & Range("D17") 'Change to suit
    
    ActiveWorkbook.SaveAs filename:=path & filename & ".xlsx"
    Application.DisplayAlerts = True
     
    lLoop = lLoop + 1
    


    
Next pi


ActiveWorkbook.Close






'
End Sub

Any help is appreciated.

TIA!