Run time Error 13 while updating the pivot table

[wish2excel]

Option Explicit
Sub Update()
    ActiveSheet.PivotTables("PivotTable1").RefreshTable
    ActiveSheet.PivotTables("PivotTable3").RefreshTable
    ActiveSheet.PivotTables("PivotTable4").RefreshTable
    ActiveSheet.PivotTables("PivotTable5").RefreshTable
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Month").CurrentPage = Range("Month") * 1
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Month").CurrentPage = Range("Month") * 1
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Month").CurrentPage = Range("Month") * 1
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Month").CurrentPage = Range("Month") * 1
End Sub

I am getting run time error when updating the pivot table with this code. The Only change that i did was the month field in the data table was showing as 9 for september and 10 for october, now i changed it to September and October. Instead of numbers started using the whole word