Try

Dim lngCol as Long
lngCol = Sheets("B Grade").Cells(Ridercell.Row,
Columns.Count).End(xlToLeft).Column
Msgbox cells(Ridercell.Row,lngCol)

If this post helps click Yes
---------------
Jacob Skaria


"NDBC" wrote:

I am trying to pull the last value in a row and am using the code

lastlap = Sheets("B Grade").Range("H" & riderCell.Row).End(xlRight)

I am determining the starting position of the row with the constant
ridercell. (eg the value I need is to the right of h2 or h100 depending on
the value of ridercell). The worksheet "b grade" is not always the active
sheet if this makes a difference to the code.

Thanks