Solo tienes que experimentar con estos objetos y veras lo facil que es manejarlos, si quieres buscar alguno o no tienes claro la jerarquia presiona F2 e iras al buscador de objetos. y tambien encuentras algo con el viejo F1. O puedes preguntar ya tratare de responderte....
y bueno pues como no es del otro mundo hay te dejo el codigo para que veas lo facil que era...
---------------------------------------------------------------------------------
Código:
Sub EncuentraNAS()
Dim Hojas
Dim Celda As Range
i = 1
For Each Hojas In ThisWorkbook.Worksheets
On Error GoTo inicio
Hojas.Activate
Set Celda = Hojas.Range("A1")
For j = 1 To 150 '65536 es el maximo
For k = 1 To 100 '256 es el maximo
If Celda.Cells(j, k).Value = "n/a" Then
'//
Celda.Cells(j, k).Select
Range("Hoja1!A1").Cells(i, 1).Value = "<=>" & Celda.Worksheet.Name & "!" & Celda.Cells(j, k).Address
'//Debes identificar bien el rango, si dejas '=' quedara como vinculo.
i = i + 1
'------------------------------------------
End If
Next k
Next j
inicio:
If Err Then
Err.Clear
End If
Next Hojas
End Sub ------------------------------------------------------------------------------------------------------------