Hi there! I could really use some help figuring this out....

I have a date selector linked to a few reference cells and when I change the date I get the following error:

'unable to get the pivotfields property of the pivottable class' error.

and it is highlighting line:

PTMarket.PivotFields(pf1).Caption = "Mo1

Here is the code:
Set PTMarket = Sheets("Chart Tables").PivotTables("PivotTable5")
pf1 = Sheets("Chart Tables").Range("am6").Value
pf2 = Sheets("Chart Tables").Range("am7").Value
pf3 = Sheets("Chart Tables").Range("am8").Value
pf4 = Sheets("Chart Tables").Range("am9").Value
pf5 = Sheets("Chart Tables").Range("am10").Value
pf6 = Sheets("Chart Tables").Range("am11").Value

If PTMarket.PivotFields(pf1).Caption = "Mo1" Then
PTMarket.PivotFields(pf1).Caption = Sheets("Computations").Range("e68")
Sheets("Market Analysis").Range("c16").Value = Sheets("Computations").Range("e68")
PTMarket.PivotFields(pf2).Caption = Sheets("Computations").Range("e69")
Sheets("Market Analysis").Range("c17").Value = Sheets("Computations").Range("e69")
PTMarket.PivotFields(pf3).Caption = Sheets("Computations").Range("e70")
Sheets("Market Analysis").Range("c18").Value = Sheets("Computations").Range("e70")
PTMarket.PivotFields(pf4).Caption = Sheets("Computations").Range("e71")
Sheets("Market Analysis").Range("c19").Value = Sheets("Computations").Range("e71")
PTMarket.PivotFields(pf5).Caption = Sheets("Computations").Range("e72")
Sheets("Market Analysis").Range("c20").Value = Sheets("Computations").Range("e72")
PTMarket.PivotFields(pf6).Caption = Sheets("Computations").Range("e73")
Sheets("Market Analysis").Range("c21").Value = Sheets("Computations").Range("e73")
Else
PTMarket.PivotFields(pf1).Caption = "Mo1
Sheets("Market Analysis").Range("c16").Value = "Mo1"
PTMarket.PivotFields(pf2).Caption = "Mo2"
Sheets("Market Analysis").Range("c17").Value = "Mo2"
PTMarket.PivotFields(pf3).Caption = "Mo3"
Sheets("Market Analysis").Range("c18").Value = "Mo3"
PTMarket.PivotFields(pf4).Caption = "Mo4"
Sheets("Market Analysis").Range("c19").Value = "Mo4"
PTMarket.PivotFields(pf5).Caption = "Mo5"
Sheets("Market Analysis").Range("c20").Value = "Mo5"
PTMarket.PivotFields(pf6).Caption = "Mo6"
Sheets("Market Analysis").Range("c21").Value = "Mo6"
PTMarket.PivotFields("Mo1").Caption = Sheets("Computations").Range("e68")
Sheets("Market Analysis").Range("c6").Value = Sheets("Computations").Range("e68")
PTMarket.PivotFields("Mo2").Caption = Sheets("Computations").Range("e69")
Sheets("Market Analysis").Range("c7").Value = Sheets("Computations").Range("e69")
PTMarket.PivotFields("Mo3").Caption = Sheets("Computations").Range("e70")
Sheets("Market Analysis").Range("c8").Value = Sheets("Computations").Range("e70")
PTMarket.PivotFields("Mo4").Caption = Sheets("Computations").Range("e71")
Sheets("Market Analysis").Range("c9").Value = Sheets("Computations").Range("e71")
PTMarket.PivotFields("Mo5").Caption = Sheets("Computations").Range("e72")
Sheets("Market Analysis").Range("c10").Value = Sheets("Computations").Range("e72")
PTMarket.PivotFields("Mo6").Caption = Sheets("Computations").Range("e73")
Sheets("Market Analysis").Range("c11").Value = Sheets("Computations").Range("e73")
End If