Try the below...If you are looking for a whole cell match; then change LookAt
to xlWhole

Sub Macro()

Dim varFound As Variant, varSearch As Variant

varSearch = InputBox("Find string")
Set varFound = Cells.Find(varSearch, LookIn:=xlValues, LookAt:=xlPart)
If Not varFound Is Nothing Then
varFound.Activate
End If

End Sub


--
Jacob (MVP - Excel)


"Eán" wrote:

Is there a macro of function I can use to find key words or statements on a
worksheet, similat to the Find (goggles) icon?

Many thanks.