hola. si gracias, pero yo lo ahbia intetando con un offset, pero ahora bien

es que tengo es otro problema,
Tengo unos datos en la columna a (100datos) y queiro que la macro coja el primeroque esta en a1 y lo busque en las hojasy que igual me devuelva la direccion, y que despues coja els egundo en a2 y vuelva a buscar y haga todo el proceso asi hasta lso 100 datos,

yo he intetado con unos bucles anidados pero no funciona quedebo hacer
algo asi llevo
Dim Hojas
Dim Celda As Range
Sub Busqueda()

i = 1
k = 1

For Each Hojas In ThisWorkbook.Worksheets

On Error GoTo inicio

Hojas.Activate

Set Celda = Hojas.Range("A1")

For j = 1 To 500 '65536 es el maximo
For k = 1 To 40 '256 es el maximo

If Celda.Cells(j, k).Value = "79733080" Then
'//
Celda.Cells(j, k).Select
Range("Hoja1!A1").Cells(i, 1).Value = "<=>" & Celda.Cells(j, k).Value & Celda.Cells(j, k).AddressLocal(RowAbsolute:=False, ColumnAbsolute:=False)
Range("Hoja1!B1").Cells(i, 1).Value = Celda.Cells(j, k).Offset(0, 1).Value
'"<=>" && Celda.Cells(j, k).AddressLocal(RowAbsolute:=False, ColumnAbsolute:=False)
'Range("Hoja1!C1").Cells(i, 1).Value = Celda.Cells(j, k).Value
'"<=>" & Celda.Worksheet.Name & "!" & Celda.Cells(j, k).AddressLocal(RowAbsolute:=False, ColumnAbsolute:=False)
'//Debes identificar bien el rango, si dejas '=' quedara como vinculo.
i = i + 1
k = k + 1
'------------------------------------------

End If

Next k
Next j

inicio:
If Err Then
Err.Clear

End If
Next Hojas
End Sub

si me pude ayudar gracias =)