Seleccion de una tabla dinamica

Buenas, necesito seleccionar una tabla dinamica completa, para despues
pintarla de color rojo. Eh probado con muchas formas pero ninguna me
anda. Les paso el codigo: recorro todas las tablas dinamicas de todas
las hojas y hago un refresh de cada una; si por algun motivo no se
puede hacer el refresh, voy a una etiqueta error y ahi quiero que
seleccione esa tabla que analizo y la pinte de rojo y luego siga
intentando actualizar los datos de las otras tablas.

Sub actualizaTDs()

Dim hoja As Worksheet, tabla As PivotTable

On Error GoTo error

For Each hoja In Worksheets

For Each tabla In hoja.PivotTables

tabla.RefreshTable

tabla.PivotCache.Refresh

Next

Next

error:

'aca me falta como seleccionar la tabla!!!!! ES LO QUE NO SALE.

With Selection.Interior

.ColorIndex = 3

.Pattern = xlSolid

End With

Resume Next

End Sub

espero me puedan ayudar, saludos a todo el grupo