Private Sub ComboBox1_Change()
other_control.SetFocus
End Sub

Private Sub ComboBox1_Change()
ActiveSheet.Shapes.Range(Array("ComboBox1")).Select.other_control.SetFocus
End Sub

Private Sub бокс_пехиД1_Change()
бокс_пехиД1.SetFocus
End Sub

Option Explicit

Private Sub ComboBox1_DropButtonClick()
    
    ' Тут меняете "Sheet1" на имя вашего листа где находится ваш объект, так же "ComboBox1" меняете на имя вашего объекта
    With ThisWorkbook.Sheets("Sheet1").OLEObjects("ComboBox1").Object
        .SelStart = Len(.Text)
        .SelLength = 0
    End With

End Sub

Private Sub бокс_пехиВ_Change()                    ' выбор диапазона из меню выбора
    Me.бокс_пехиД1.ListFillRange = Me.бокс_пехиВ                 ' привязка к выбору в боксе выбора
        бокс_пехиД1.ListWidth = бокс_пехиД1.Width + 96           ' ширина выпадающего списка (для добавления колонок)
            With Sheets("Расч").OLEObjects("бокс_пехиД1").Object ' лист "Расч", объект бокс "бокс_пехиД1"
                .SelStart = Len(.Text)
                .SelLength = 0
            End With
    Me.бокс_пехиД2.ListFillRange = Me.бокс_пехиВ
        бокс_пехиД2.ListWidth = бокс_пехиД2.Width + 96
    Me.бокс_пехиД3.ListFillRange = Me.бокс_пехиВ
        бокс_пехиД3.ListWidth = бокс_пехиД3.Width + 96
...
End Sub