Draaitabellen vernieuwen na wijziging parameter

[Patarcadis]

Ik heb het volgende probleem:
In een excelwerkbook haal ik gegevens uit een database op basis van 2 parameters(tussen datum 1 en datum 2) Er is een tweede werkblad met 2 draaitabellen om de gegevens te analyseren. Wanneer ik 1 van de datums wijzig zou ik willen dat via een VBA code de draaitabellen vernieuwd worden, doch dit lukt niet. Ik merk wel op dat wanneer ik die datum weer verander hij dan vernieuwt maar op basis van de datum die ik daarvoor ingebracht had. Hieronder staat mijn code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveSheet.Unprotect
ActiveWorkbook.RefreshAll
Range("A8").Select
ActiveSheet.PivotTables("Draaitabel3").PivotCache.Refresh
Range("D8").Select
ActiveSheet.PivotTables("Draaitabel6").PivotCache.Refresh
End If
If Target.Address = "$D$4" Then
ActiveSheet.Unprotect
ActiveWorkbook.RefreshAll
Range("A8").Select
ActiveSheet.PivotTables("Draaitabel3").PivotCache.Refresh
Range("D8").Select
ActiveSheet.PivotTables("Draaitabel6").PivotCache.Refresh
End If


End Sub

Wie weet hier de oplossing voor ?

Thanks,
Patrik