Me pueden ayudar con este error:"no se puede obtener la propiedad pivoitems de la clase pivotfields"

parte del codigo y donde se produce el error es el siguiente, mas abajo se produe el error:

FechaInicial_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(1, 2).Value

FechaFinal_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(2, 2).Value

FechaInicial_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(3, 2).Value

FechaFinal_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(4, 2).Value

Application.ScreenUpdating = False

Set pt = ActiveSheet.PivotTables("Tabla din?mica1")

Set pf = pt.PivotFields("Fecha")

For Each pi In pt.PivotFields("Fecha").PivotItems

FechaComparacion = VBA.Format(pi.Value, "dd/mm/yyyy") 'CDate(pi.Value)

If FechaComparacion >= FechaInicial_2013 And FechaComparacion <= FechaFinal_2013 Or FechaComparacion >= FechaInicial_2014 And FechaComparacion <= FechaFinal_2014 Then

pi.Visible = True ' ACA ES DONDE SE PRODUCE EL ERROR Y LA TABLA DINAMICA NO HACE EL FILTRO , OJO QUE "Fecha" ES UN CAMPO DE INFORME Y ESTOY TRABAJANDO EN EXCEL 2007

Else

pi.Visible = False

End If

Next pi