for a single column or single row, use application.Match

Function FindTestFn() As Variant
Dim R As Range
Dim res As Variant
Dim R1 As Range
Application.Volatile
Set R1 = Application.Caller
Set R = R1.Parent.Range("A:A")
res = Application.Match(20, R, 0)
If Not IsError(res) Then
FindTestFn = R(res).Address
Else
FindTextFn = CVErr(xlErrNA)
End If
End Function




--
Regards,
Tom Ogilvy

"Eros Pedrini" wrote in message
...
Thanks... another question... there is a workaround? Check all cells with
an
each for is very expensive in time... something know another way?

Thanks again

Eros Pedrini




"Alan Beban" wrote in message
...

The Function works if it is called from a Sub Procedure; it doesn't if
it is called from a Worksheet. That's just the way it is in Excel.

Alan Beban