Say you are looking for "happiness"

Sub where_is_happiness()
s = "happiness"
Set where = Nothing
For Each r In ActiveSheet.UsedRange
If r.Value = s Then
If where Is Nothing Then
Set where = r
Else
Set where = Union(where, r)
End If
End If
Next
If where Is Nothing Then Exit Sub
where.Select
End Sub
--
Gary''s Student - gsnu200832


"Robert" wrote:

Does anyone know how to create a search engine (similiar to the find
function) in which a person can type in data in a specific cell and the macro
would take the the person to anything that contains those words?