Need help updating Pivot table

I have also tried this:

Sheets("LecDaily").Select
    ActiveSheet.PivotTables("InboundCalls").PivotFields("[CallDates]").AddPageItem _
    "[CallDates].[All CallDates].[" & strYear & "].[" & strMonthName & "].[" & strDay & "], True"

I get the same error..

I would really appreciate assistance if anyone has an idea...