Tomar datos desde una celda

Veamos si hoy esta respuesta sale con éxito (posiblemente la recibas repetida)
Te adjunto una rutina ciompleta para que la adaptes. Comentame si te sirve:
Sub buscando()
'macro desarrollada por Elsamatilde 29/01/07
Dim rango As String
Dim midato As Object
Dim Rng As String
'el contenido de la celda será el dato a buscar
Rng = Application.InputBox(prompt:="Seleccionar celda Activa ", Type:=8)
'rango donde se efectuará la búsqueda
rango = "H1:H15"
'se busca en el rango indicado
Set midato = Sheets("Hoja3").Range(rango).Find(Rng, LookIn:=xlValues, LookAt:=xlWhole)
'si midato No es Vacío?. es decir si la búsqueda es exitosa.....
If Not midato Is Nothing Then
'instrucciones por dato encontrado
MsgBox "encontrado"
Else
'si el dato no fue encontrado aparecerá un mensaje indicándolo
MsgBox "No se encuentra el dato en el rango establecido"
End If
Set midato = Nothing

Hola Elsa
Esta rutina es lo que necesito, pero
Falta un pequeño detalle.
Al encontrar el valor:
Suponiendo que es la hoja1 y los datos están en la hoja3.
Se debe posicionar en hoja3 y en la celda que encontró el valor.
Gracias por tu ayuda

Ok muchas gracias, me funciona a la perfección
Saludos