Cargar combobox según condicion de texbox

Expertos:

Tengo la siguiente rutina en un texbox en donde según código me indica el nombre de los superisores. Ahora según el nombre que me indique el texbox, deberá cargar el combobox. Pero mi rutina (Sub Lista) tiene algo que esta mal. Me ayudan? Aclaro que el tex y el combo estan incrustados en  mi hoja excel y no en un form.

Private Sub TextBox1_Change()
If TextBox1 = "9198504" Then
TextBox2 = "JAIME MEDINA"
Range("A1").Select

Else
If TextBox1 = "9198505" Then
TextBox2 = "CARLA FERNÁNDEZ"
Range("A1").Select

Else
If TextBox1 = "9198506" Then
TextBox2 = "JORGE MONGE"
Range("A1").Select

End If
End If
End If
End Sub

Sub Lista()
If TextBox2 = "JAIME MEDINA" Then
ComboBox1 = "BOUTIQUE CELULAR CAV"
ComboBox1 = "BOUTIQUE CELULAR MORAN"
ComboBox1 = "BOUTIQUE CELULAR MOLLENDO"
ComboBox1 = "VISATECH MAP"
End If
End Sub

Gracias,

Alberto Meza