function to find last value in a column
 

Hi-

I am not experienced at writing user functions. I want to put a function in
a cell that will retrieve the last call that has a value in another column.
My feeble attempts are as follows (One attempt was patterned after another MS
post)

Function LastValue(lastno As Variant)

Dim sysexpcol As Range
Set sysexpcol = Range(ad16, ad56)


Set lastno = sysexpcol(Cells.Value.xlDown)



End Function

Function lastvalueincolumn(foundcell As Variant)

With Worksheets("analysis").Range("ad:ad")
Set foundcell = .Cells.Find.Value.xlDown
End With
End Function


Thanks for your help!

Andy