Refrescar celda especifica con VBA

[lalotop]

Hola amigos

Tengo el siguiente problema: Tengo una macro que lo que hace es modificar el
filtro de una o mas tablas dinamicas dentro de la misma hoja (en este caso es
solo una tabla) en funcion de una celda determinada (en este caso
"c3"). En mi planilla, el valor de c3 se completa automaticamente
desde otra operacion, por lo tanto la macro no se activa automaticamente. debo
entrar en la celda y hacer "enter" y allí funciona la macro.
Como puedo hacer que la macro, como ultima tarea, refresque la celda
"C3" automaticamente.

Este es el codigo que estoy usando. la tabla se llama "PV", y el
nombre del filtro también es "PV".

Private Sub TextBox1_Change()

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C3")) Is Nothing Then


With PivotTables("PV").PivotFields("PV")

.ClearAllFilters

On Error Resume Next
.CurrentPage = Range("C3").Value

End With


End If

End Sub