not sure exactly what you want.

Sub test()
Dim ridercell As Range
Dim lastcol As Long
Dim lastlap As String
With Sheets("b grade")
Set ridercell = .Range("A26")
lastcol = .Cells(ridercell.Row,
Columns.Count).End(xlToLeft).Column
lastlap = .Cells(ridercell.Row, lastcol).Address
MsgBox lastlap
End With
End Sub

--

Gary Keramidas
Excel 2003


"NDBC" wrote in message
...
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