A UDF perhaps

this goes in a general module

Public Function FindMe(SrchFor As String, Rng As Range) As String
Set x = Application.Caller
For Each c In Rng
If Not Intersect(c, x) Is Nothing Then
Else
If c.Value = SrchFor Then
FindMe = c.Address
Exit Function
End If
End If
Next
End Function

call with =findme(a1,a2:d100)
Were A1 is what you are looking for

Mike

"exoticdisease" wrote:

I would like a forumla that searches my spreadsheet for a word, e.g. "july"
and returns the reference of the cell that it is in, so I can use it for the
rest of a lookup formula.

Any help would be most appreciated,
Rob