Visual Basic - Metodo Find excel alguien puede ayudarme

hola Compañeros se que este foro no es para VbA pero realmente trato de resolver una problema y espero que alguien de este foro me pueda ayudar.
Necesito saber como especificarle al find que me busque en otra hoja que no es la activa lo que deseo hacer es que me busque un dato y me lo muestre en un formulario pero a su vez que busque ese dato en otra hoja que no esta activa y tambien lo muestre eh tratado pero no puedo espero me puedan ayudar el primer modulo es para la busqueda en la hoja activa y el segundo es la funcion que llamo para que me busque ese dato en otra hoja y lo muestre en el formulario el formualrio tiene dos frames en uno muestra el dato encontrado en una hoja y el otro frame deben de ser los datos de la otra hoja que no esta activa pero realmente estoy muy confundido como lograr que pase esto espero me ayuden gracias cualquier comentario me ayudaria

Sub buscar()
On Error GoTo noencontro
Call Clear
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, -3).Select
txtProv = ActiveCell
arreglo(1) = txtProv
ActiveCell.Offset(0, 1).Select
txtInterno = ActiveCell
arreglo(2) = txtInterno
ActiveCell.Offset(0, 1).Select
txtCodigo = ActiveCell
arreglo(3) = txtCodigo
ActiveCell.Offset(0, 1).Select
txtDescripcion = ActiveCell
arreglo(4) = txtDescripcion
ActiveCell.Offset(0, 1).Select
txtUm = ActiveCell
arreglo(5) = txtUm
ActiveCell.Offset(0, 1).Select
txtPrecio = ActiveCell
arreglo(6) = txtPrecio
Call search(TextBox1)
noencontro:
End Sub
--------------------------------------------------/////----------------------------------////----------------------------------
Sub search(valor As String)
Dim buscado As String
Worksheets("decasa").Activate
With Worksheets("decasa").Range("a1:F5017")
Set c = .Find(What:=valor, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
End With
ActiveCell.Offset(0, -5).Select
txtPov = ActiveCell
'arreglo(1) = txtProv
ActiveCell.Offset(0, 1).Select
txtCI = ActiveCell
'arreglo(2) = txtInterno
ActiveCell.Offset(0, 1).Select
txtCB = ActiveCell
'arreglo(3) = txtCodigo
ActiveCell.Offset(0, 1).Select
txtD = ActiveCell
'arreglo(4) = txtDescripcion
ActiveCell.Offset(0, 1).Select
txtU = ActiveCell
'arreglo(5) = txtUm
ActiveCell.Offset(0, 1).Select
txtP = ActiveCell
'arreglo(6) = txtPrecio
Worksheets("sahuayo").Activate
End Sub

Te recomiendo que le envies tu pregunta a Claudio Sanchez ([email protected]) es un master e Excel y seguro que te va a ayudar