метод диапазон объекта _workheet

Question

Я создал кнопку ActiveX и напишу ниже код при щелчке .... но здесь я столкнулся с ошибкой «диапазон методов объекта _workheet» в строке no. 2 при нажатии кнопки.

Sheets("sheet1").Select 
    Range("Query1[#Headers]").Select 
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False 
    Sheets("sheet2").Select 
    Range("H15").Select 
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh 
    Range("Query2[#Headers]").Select 
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False 

Answer 1

Для объекта ActiveX код будет в рабочем листе. В таком модуле любой вызов Range/Cells будет ссылаться на лист, содержащий код, если вы не указали иначе, чего вы здесь не видите. В любом случае здесь нет необходимости выбирать или активировать:

Sheets("sheet1").ListObjects("Query1").QueryTable.Refresh BackgroundQuery:=False 
    Sheets("sheet2").PivotTables("PivotTable3").PivotCache.Refresh 
    Sheets("Sheet2").ListObjects("Query2").QueryTable.Refresh BackgroundQuery:=False