错误VBA 9下标超出范围

Question

I have an Excel workbook with 3 tabs.

Second tab (Sheet2) is with data from Oracle DB.

I created a pivot table in Sheet3 with data from Sheet2.

I want the Pivot Table to update automatically when the data changes.

Here is the code:

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Sheet3").PivotTables("PivotTable4").PivotCache.Refresh  
End Sub

PivotTable4 is the name of the PivotTable.

After some minutes I got the error:

Run-time error '9' : Subscript out of range.

Answer 1

When working with multiple workbooks, you'll get a "Subscript out of range" error if your code looks for an object with a particular name in one workbook when in fact it's in the other. Therefore, if you're going to have multiple workbooks open, it's always a good idea to qualify the one in which you want the code to be executed, for example:

Workbooks("MyWorkbook").Worksheets("Sheet3").PivotTables("Pi‌​votTable4").PivotCac‌​he.Refresh