List Nth item from a range.

[Tom.Jones]

Howdy,

I need a UDF to return the nth value from a row or a column.

Ex. I want the 4th item (from left to right) in range A2: P2
or
I want the 5th item (top to down) from range A2: A16

If it were not very complicated, it would be perfect if I had the choice of the opposite, ie from right to left or from bottom to top.

Thank you.

 

[Joe4]

An alternative, which does allow indexing outside the range:

Function Nth(r As Range, n As Long) As Range
Set Nth = r.Cells
End Function

That certainly is a bit simpler than what I had, though I got some validations going on in there.

 

[shg]

To exclude indexing outside the range,

Function Nth(r As Range, n As Long) As Range
  Set Nth = Intersect(r, r.Cells(n))
End Function

 

[Tom.Jones]

Thank you very much to both of you. Excellent.

 

[Joe4]

You are welcome.