Buscar en textbox

hola, tengo una inquietud, tengo un userform con tres textbox donde deseo que al digitar el código del textbox5 me aparezcan los datos en el textbox13 y 14, tengo la siguiente formula:

Private Sub TextBox5_AfterUpdate() Set rango = Range("A:A").Find(What:=TextBox5, _ LookAt:=xlWhole, LookIn:=xlValues)
If rango Is Nothing Then MsgBox "El dato no fue encontrado", vbOKOnly + vbInformation, "AVISO" TextBox5 = "": TextBox5.SetFocus Exit Sub Else TextBox14 = Sheets("Hoja3").Range("C" & rango.Row) TextBox13 = Sheets("Hoja3").Range("B" & rango.Row)
End If
End Sub

la macro me funciona lo que sucede es que solo se me activa cuando me ubico en la hoja donde tengo la base de datos ej: hoja4, pero no en las otras hojas en especial donde tengo el botón para abrir el formulario VB (hoja1). Les agradecería su ayuda