Buscar hoja señalada en CmBx1 y atraer en los TxBx contenidos de las celdas especificas

Tengo esta macro que anexo y su función es: al seleccionar la obra en el cmbx1 y clickear “buscar”, debe buscar la hoja respectiva en el libro y visualizar en los textbox el contenido que encuentre en las celdas específicas. Si se desea modificar un txbx, se clickea “modificar” y debe cumplir esa función. En cualquier hoja buscada las celdas siempre serán las mismas con contenidos distintos.

Mil gracias a todos por sus atenciones.

Private Sub UserForm_Initialize()  ‘USERFORM3

'LISTADO DE OBRAS

ComboBox1.AddItem "obra1"    'Obra1 =HOJA2

ComboBox1.AddItem "obra2"    'Obra2=HOJA3... ETC

‘….

End Sub

Private Sub CommandButton1_Click()    'BUSCAR

Application.ScreenUpdating = False

'If Range("A1:M100") = "" Then Exit Sub

Dim OBRA As String

OBRA = ComboBox1.Value

Hoja.Unprotect

'Dim Rango

Sheets(OBRA).Select

On Error Resume Next

      'Buscar la celda "E3" En la hoja (Obra) seleccionada para que su contenido

      ‘lo visualice en el TxBx1

      ‘Buscar la celda "E4" para que su contenido lo visualize en el TxBx2... Etc.

      ‘Además las celdas que busca (son 10; E5; E6;  J3; J4; J5; K3; K4 y N4, cada una en su txbx.) son específicas y ya están dadas.

Set Rango = Range("E:F").Find(What:=ComboBox1, _

LookAt:=xlWhole, LookIn:=xlValues)

Range(Rango.Address).Select     'para búsqueda exacta

    'TextBox1 = Rango.Select         'opcional

If Rango Is Nothing Then

MsgBox "El dato no fue encontrado.", vbOKOnly + vbInformation, "AVISO"

ComboBox1 = "": ComboBox1.SetFocus

Exit Sub

Else