Using MS Access I've created a Piviot Table imbedded into an Access Form. I'm
opening a Pivot Table for editing in Excel my following code won't run:

Sub mcrRefreshPvt()
'
' mcrRefreshPvt Macro
' Keyboard Shortcut: Ctrl+r
'
ActiveSheet.PivotTables("PivotTable1").PivotCache. Refresh
End Sub

However, if I follow the Debug prompt & then clik on "ThisWorkbook" I am
able to run my code & refresh the Pivot table. How do I get this code to
automatically run when I open the table in excel?