Public Function LastOcc(Table As Range, Value As Variant)
' 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, 1) = Value Then
LastOcc = i
End If

Next i

End Functio

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