boa tarde a todos

eu um código VBA para atualizar a Tabela Dinâmica
porem encontro problemas na hora de executar

No Virtual Basic ela funciona perfeitamente, porem quando estou no Excel ela da erro
poderiam me ajudar?

segue o código que estou usando e a planilha

Private Sub Worksheet_Change(ByVal Target As Range)
    
   If Target.Column <= 16 And Target.Row <= 17 Then
    Application.OnTime Now + TimeSerial(0, 0, 3), “Atualiza_TD”
    End If
    
End Sub

----------------------------------------------------------------------------------------------

Sub Atualiza_TD()

    Sheets("Plan3").PivotTables("TD").RefreshTable


End Sub