Se puede llamar un useform desde un libro para listar los datos de otro libro?

Bueno este realmente no es el problema, de listar si se puede porque lo he hecho, el problema real es el siguiente: después que llamo a mi useform el carga y lista bien pero cuando, en el texbox que tengo para que me liste una selección determinada este se sale del procedimiento lo que me lleva a volver a cliquear el useform para poder seguir tecleando en el texbox para completar la información que solicito:

Private Sub INVENTARIO_DESCRIPCION_Change() 'Colocar el Name del cuadro de texto
Application.ScreenUpdating = False
Windows("CONTROL DE INVENTARIO.XLSM").Activate
Sheets("INVENTARIO").Select 'Hoja de la lista de INVENTARIO
Range("B4").Select 'Primera celda del rango de la base de los INVENTARIO
INVENTARIO_DISPONIBLES.Clear ' Name del cuadro de lista
While ActiveCell.Value <> ""
M = InStr(1, UCase(ActiveCell.Value), UCase(INVENTARIO_DESCRIPCION.Text)) 'Colocar el
'Nombre del cuadro de texto
If M > 0 Then
'Remplazar INVENTARIO_DISPONIBLES por el Name del cuadro de lista que usted tiene
INVENTARIO_DISPONIBLES.ColumnCount = 2 'cantidad de columna que tendrá el cuadro de lista
INVENTARIO_DISPONIBLES.AddItem
INVENTARIO_DISPONIBLES.List(INVENTARIO_DISPONIBLES.ListCount - 1, 0) = ActiveCell.Value 'Repetir para cada columna que se mostrar.
ActiveCell.Offset(0, -1).Select 'POSICION DE LA CELDA AVTIVA
' LISTACLI.List(LISTACLI.ListCount - 1, 1) = ActiveCell.Value

INVENTARIO_DISPONIBLES.List(INVENTARIO_DISPONIBLES.ListCount - 1, 1) = ActiveCell.Value
ActiveCell.Offset(1, 1).Select 'Colocar la ultima columna en negativo
End If
ActiveCell.Offset(1, 0).Select

Wend
'Me.INVENTARIO_DESCRIPCION.SetFocus
Windows("FACTURACION 1.7MAJO PRUEBA2.XLSM").Activate
Sheets(DON).Select
Range("A1").Select
Me.INVENTARIO_DESCRIPCION.SetFocus
Application.ScreenUpdating = True
End Sub

Esta mas o menos es lo que llevo pero estoy trancado en esta rutina alguien puede ayudarme