Добрый день!

Задался вопросом, возможно ли открывать(перелистывать) вкладки(Главная, Вставка, Вид и т.д.)  с помощью макроса?
Нашел код, где можно вывести id кнопок, но так и не смог их переключать.

Скрытый текст

Public Sub BET_ListControls()Dim control As CommandBarControls Dim icount1 As Integer Dim icount2 As Integer Dim icount3 As Integer For icount1 = 1 To CommandBars.Count   With CommandBars.Item(icount1)   For icount2 = 1 To .Controls.Count   On Error Resume Next      For icount3 = 1 To .Controls(icount2).Controls.Count         ActiveCell.Value = .Name         ActiveCell.Offset(0, 1).Range("A1").Select         ActiveCell.Value = .Controls(icount2).Caption         ActiveCell.Offset(0, 1).Range("A1").Select         ActiveCell.Value = .Controls(icount2).ID         ActiveCell.Offset(0, 1).Range("A1").Select         On Error Resume Next         ActiveCell.Value = .Controls(icount2).Controls(icount3).Caption         ActiveCell.Offset(0, 1).Range("A1").Select         ActiveCell.Value = .Controls(icount2).Controls(icount3).ID         ActiveCell.Offset(1, -4).Range("A1").Select      Next icount3   Next icount2   End With Next icount1 End Sub

Подскажите, как это можно реализовать?