Liga doble celda-combo box?

Saludos.
Una ayuda. El siguiente código lo uso para una consulta en la que ligo un
combo a una celda (Y2) en una pantalla de consultas.
Y2 contiene el ID del empleado y el combo el nombre.
Hago esto porque Y2 es parámetro de muchos buscarV en la misma hoja.
Así cuando seleccionan un nombre en el combo, Y2 cambia y por lo tanto
todos los buscarV.
Y cuando escriben un numero en Y2, cambia el combo y todos los buscarV...
El problema es cuando cierro el libro, porque me manda un sendkeys del
numero ID al libro que se queda abierto, lo cual, como saben es algo
indeseable.

Como que las musas se me han ido de vacaciones.
Alguna sugerencia para evitar el envío de un dato 'indeseable' ?


'***********************************************************
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Font.Size = 8 'Letra mas chica para que quepa todo el nombre
End Sub

Private Sub ComboBox1_change()
Sheets("MainRqst").Range("$Y$2").Activate 'Activo la celda donde está el
ID
SendKeys [Y2] ' Lo tecleo
SendKeys "{enter}" 'Doy enter
ComboBox1.Font.Size = 16 'Regreso la letra del combo a su tamaño original
Plop 'Un sonido de confirmación
End Sub
'******************************************************