accessing dates with a macro from pivot table

[bucci35]

Sub DropDown3_Change()
datelocation = Sheets("Instructions").Cells(59, 7).Value
Sheets("Sales Cube").PivotTables("PivotTable4").PivotFields("[Fiscal Dates]"). _
CurrentPageName = "[Fiscal Dates].[Fiscal Year].[Fiscal Period].[Week].[" & datelocation & "]"

This is the macro I am using to try to access a particular date using a macro from a pivot table.
Keep getting an error "can't execute code in break mode". Any suggestions? Please!!

Dan