Error 424, se requiere un objeto

Tengo dos tablas dinámicas en una hoja (“Datos Exportados_SIO”), las cuales quiero actualizar automáticamente y también actualizar los datos de origen de datos los cualesquiera están en las misma hoja (las tablas dinámicas estás al lado).

Tengo este código:

Sub Actualiza_Tablas()

Dim pt As PivotTable

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets ' recorre todas las      hojas

  For Each pt In ws.PivotTables ' recorre todas las tablas dinámicas de la hoja

    pt.PivotCache.Refresh  ' actualiza tabla dinámica

  Next pt  ' fin bucle tablas dinámicas

Next ws ' fin bucle hojas 

End Sub

Cree un botón común para ejecutar esa macro y me da el error 424, se requiere un objeto

¿Cuál es mi error?.