Function GetAddress(FindValue As Variant, SearchRange As Range) As String
Dim FoundCell As Range
Set FoundCell = Nothing
Set FoundCell = SearchRange.Find(FindValue)
If FoundCell Is Nothing Then
GetAddress = "Not found"
Exit Function
Else
GetAddress = FoundCell.Address(False, False)
End If
End Function