Can anyone tell me the problem with this macro, when run an error is
thrown and the returnAddress = MyCell.Address is highlighted.

Function returnAddress(rang As Range, source As String) As Range
For Each MyCell In rang
If MyCell = source Then
returnAddress = MyCell.Address
End If
Next MyCell
End Function


Thanks,

Tom


--
Tomski
------------------------------------------------------------------------
Tomski's Profile: http://www.excelforum.com/member.php...o&userid=26824
View this thread: http://www.excelforum.com/showthread...hreadid=501149