Ниже есть строка (pi.Visible = False), которая продолжает выдавать ошибку отладки, когда мы пытаемся запустить наши отчеты.
Set pt = Worksheets ("Design Type of Work") .PivotTables("PivotTable1")
Set pf = pt.PivotFields ("Date Design Sent for Builder Approval")
pt.ManualUpdate = True
For Each pi In pf.PivotItems
If Left(pi, 4) = thisyr Then
pi.Visible = True
Else
pi.Visible = False
End If
Next pi
pt.ManualUpdate = False
End Sub