¿Extraer datos de una hoja desde un combo box?

Hola amigo estoy realizando un proyecto en el cual tengo un menú en el cual tengo una macro donde arroja un formulario y ese formulario tienen combo box y ahi seleccionando un nombre que los demás campos que son textbox se llenen en automático me marca un error pero no lo encuentro ya hice referencia a la hoja con el rango te adjunto el código del combox.

Nota: solo es para consultar ya que el ENABLE de los textbox lo tengo en false para que no puedan ser modificados

El error lo marca en la 5,6 y 7 linea del código me sale este error (Activate method of range class failed)

Private Sub cmbNombress_Change()
'Proposito: Cargar los datos del codigo de producto seleccionado.
Application.ScreenUpdating = False
Range("a1").Select
Sheets("BD_USUARIO").Range("a:a").Find(What:=cmbNombress, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Txt_ApellidoPaterno = ActiveCell.Offset(0, 1).Value
Txt_ApellidoMaterno = ActiveCell.Offset(0, 2).Value
Txt_Telefono = ActiveCell.Offset(0, 3).Value
Txt_Email = ActiveCell.Offset(0, 4).Value
Txt_NoEmpleado = ActiveCell.Offset(0, 5).Value
Txt_Cargo = ActiveCell.Offset(0, 6).Value
Txt_Usuario = ActiveCell.Offset(0, 7).Value
Txt_Contrasena = ActiveCell.Offset(0, 8).Value
Application.ScreenUpdating = True
End Sub