Macro no carga datos primera ocasión

Experto. Tengo este codigo que desplega en un combobox situado en userform los datos de un rango y al seleccionar un dato me trae al mismo userform en sus textbox correspondientes la informacion de una fila y lo que tiene en las columnas de la derecha. La cuestion es que la primera oportunidad que lo corro no me muestra el Texto en TextDEI y el texto de TextCAI lo marca como 0 siendo esta una cantidad. Lo ignoro y selecciono otro articulo del combobox y despues regreso al anterior y problema resuelto. Funciona de maravilla, ¿que debo modificarle al codigo para curarla de espanto? Saludos.

Private Sub ComboNPI_Click()

Application.ScreenUpdating = False

Worksheets ("INVENTARIOACTUAL").Select

'encuentra las primeras lineas

Cells.Find (What:=ComboNPI, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _

SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

'se mueve una columna a la derecha

ActiveCell.Offset(0,1).Select

'captura el valor de la celda y lo muestra en el textbox

TextDEI = ActiveCell

ActiveCell.Offset(0,1).Select

TextCAI = ActiveCell

ActiveCell.Offset(0,1).Select

TextTIPI = ActiveCell

Sheets("INVENTARIO").Select

End Sub