Macro code to update Pivot table based on criteria

Hi Guys

The Code given below was give to me by a friend, which helps me to update the pivot tables that I have on a sheet, and also helps me to select the month for which i am checking the report. Now what i have done is i put the data on sheet 2 and sheet 3 and all the pivot tables are on sheet 1. after i have done this change i start getting error from
" ActiveSheet.PivotTables("PivotTable2").PivotFields("Month").CurrentPage = Range("Month") * 1" the line mentioned above. I think it has something to do with either selecting the month or may due to the movement of the pivot to sheet 1. Can somebody help me on this pleaseeeeeeee

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

Hi,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Thank you.

Which sheet is the Month range on?

So the cell named Month is on the same sheet as the pivot tables?
What is the actual error you are getting? (it may speed things up if you can post a sample workbook)

Do you actually have data for those months?