Control Pivot Table Filter with value from a Named Range

[ManUBlueJay]

I would like to have the filter in my pivot table change each week to the current Week Number which I have calculated using Named Range "WeekNumber"
I tried the following code but get an error.

Dim PTName As String
        PTName = [WeekNumber]
     
    ActiveSheet.PivotTables("Sales").PivotFields("[Date Typed].[Week]") _
        .CurrentPageName = PTName