You can do this with a simple user defined function

Function GetLastValue(Col As Range)
GetLastValue = Col.Parent.Cells(65536, Col.Column).End(xlUp).Value
End Function


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=540216