opdater pivot filter fra celle med vba

Hej

Jeg vil meget gerne at en pivottabel henter sit filter fra værdien i en anden celle - her "F1". Jeg har fundet nedenstående vba - men jeg kan ikke få den til at virke...

Her er link til et ark jeg har lavet som eksempel.
https://dl.dropboxusercontent.com/u/4538434/Opdater_pivot_filter_fra_celle.xlsm

Og her er koden jeg har hentet og søgt at tilpasse. Problemet er at der blot ikke sker det fjerneste når jeg ændre værdien i "F1"... Kodestumpen er hentet fra: http://dedicatedexcel.com/how-to-control-excel-pivot-tables-from-a-cell-value-with-vba/

min tilpasning ser således ud:
"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'This line stops the worksheet updating on every change, it only updates when cell
'H6 or H7 is touched
If Intersect(Target, Range("F1:F2")) Is Nothing Then Exit Sub

'Set the Variables to be used
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

'Here you amend to suit your data
Set pt = Worksheets("Ark2").PivotTables("PivotTabel2")
Set Field = pt.PivotFields("Navn")
NewCat = Worksheets("Ark2").Range("F1").Value

'This updates and refreshes the PIVOT table
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With

End Sub
---------------

Hvad mangler jeg at opdaterer for at der sker noget...

Jeg håber nogen kan hjælpe.

/Larsjul