Seleccionar un dato de un listbox de acuerdo a un combobox

Te mando mi solución con este ejemplo:

-Trabajamos en hoja1

-Escribe unos datos cualesquieras en el rango A1:A12

-Dentro de un userform dibuja un combobox y un listbox

-Estas son las macros necesarias dentro de ese userform

Private Sub ComboBox1_Change()
posicion = ComboBox1.ListIndex
ListBox1.Selected(posicion) = True
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "hoja1!a1:a12"
ListBox1.RowSource = "hoja1!a1:a12"
End Sub

recuerda finalizar