Try this UDF:

Public Function julyy(inRng As Range) As String
Set r = Application.Caller
ad = r.Address
julyy = ""
For Each rr In inRng
If Not Intersect(rr, r) Is Nothing Then
Else
If rr.Value = "july" Then
julyy = rr.Address
Exit Function
End If
End If
Next
End Function

--
Gary''s Student - gsnu200796