Excel - Insertar tabla dinamica en un UserForm

Amigos estoy tratando de desplegar una tabla dinamica en un formulario; los controles que estoy utizando son: Command Button, Image y UserForm

En el formulario inserte un control "Image" casi del tamaño conveniente para mostrar la tabla dinamica y el Command Button esta independientemente visible en la hoja .

la idea es.

El control "Image" permite incorporar gráficos o imágenes importados de archivos externos a tu libro. El truco será, pues, exportar la Tabla Dinamica a mostrar, grabarlo como un archivo externo y luego mostrarlo.


Al activar el Command Button se debe desplegar el formulario con la imagen de la tabla dinamica

el codigo es el siguiente

Option Explicit
Dim strRuta As String

Private Sub UserForm_Initialize()
strRuta = ThisWorkbook.Path & Application.PathSeparator & "Tabla.gif"
End Sub

Private Sub UserForm_Activate()
Dim Tabla As PivotTable
Set Tabla = ActiveSheet.PivotTables("Tabla dinámica3").PivotSelect
Tabla.Export strRuta, "GIF"
Image1.Picture = LoadPicture(strRuta)
Set Tabla = Nothing

End Sub

Private Sub CommandButton1_Click()
UserForm1.Show

End Sub

El error me marca en la siguiente linea "set tabla = activesheet pivottables("tabla dinamica3").pivotselect"