Public Function LastOcc(Table As Range, Value As Variant, Col A
Integer)
' Finds the last occurence of a value in the first column

Dim i As Integer

For i = 1 To Table.Rows.Count

If Table.Cells(i, Col) = Value Then
LastOcc = i
End If

Next i

End Function


...almost the same as above but the function takes the column you wan
to search in as an argument (while before search could only b
performed in column 1). there's one restriction to this solution: th
cell containing the function should not be in the same column you ar
looking for occurences ... (will return '0' otherwise even if you
value does occur in this column)

Fa

--
Message posted from http://www.ExcelForum.com