Панель команд Excel VBA

Question

У меня есть Excel-модель, используемая для извлечения данных через Excel-плагин S & P Capital IQ (COM-Addin).Эта модель использовалась в течение нескольких лет без каких-либо проблем, но теперь я получаю сообщение об ошибке в этой строке кода:

    Application.CommandBars.FindControl(Tag:="menurefreshdatacell").Execute

Я пробовал искать и обнаружил, что CommandBars могли быть замененыпользовательским интерфейсом Microsoft Office Fluent.Тем не менее, я не могу найти решение или пример того, как это могло бы изменить кусок кода сверху.

Уже давно, как я использую VBA, поэтому, к сожалению, я не смог решитьСам вопрос, надеюсь найти здесь более компетентных людей.

Ниже приведен весь фрагмент кода.Который выбирает обозначенную область и нажимает кнопку «Обновить выделение» в плагине.

Дайте мне знать, если я что-то пропустил, большое спасибо заранее!

    Sub Update_FactSet_formulas()

    Application.ScreenUpdating = False

    Sheets("Peer group_segments").Select
    Range("PG_seg_data").Select

    Application.CommandBars.FindControl(Tag:="menurefreshdatacell").Execute

Ниже приведена формула, предоставленная автором плагина, она не менялась годами и что должно отражать вышесказанное:

    Public Sub RefreshSelection()
    Dim Refreshbutton As CommandBarButton
    Set Refreshbutton = 
    Application.CommandBars.FindControl(Tag:="menurefreshdatacell")
    Refreshbutton.Execute
End Sub