Not sure if yo simply mean this

Each combox is filled from the lists in Sheet1, so when yo change combobox1 you also change combobox2
   With Me
    .ComboBox2.ListIndex = .ComboBox1.ListIndex
    End With