Using your code:
MyRow = Sheets("Sheet1").Range("O1").Row
Claimno = Cells(MyRow, 11)


However, the GetLast sub below will find the last occupied row & column of a
worksheet.

Sheets("Sheet1").Activate
Set MySheet = ActiveSheet

GetLast
Claimno = Cells(lastRow,lastCol)


Sub GetLast()
lastCol =
ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRang e.Columns.Count).Column
lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.R ows.Count).Row
End Sub


--
HTH
Roger
Shaftesbury (UK)




"rocket0612" wrote
in message ...

Can anyone see a problem with this:


Code:
--------------------
Sheets("Sheet1").Activate
Set MySheet = ActiveSheet

MyRow = Sheets("Sheet1").Range("O1")
Claimno = Range(MyRow, 11)
--------------------


It keeps erroring on the last line. I'm trying to get it to find the
last value entered on spreadsheet. Range O1 shows the Row to look for
and is correctly showing the Row to be used.

thanks


--
rocket0612
------------------------------------------------------------------------
rocket0612's Profile:
http://www.excelforum.com/member.php...o&userid=19492
View this thread: http://www.excelforum.com/showthread...hreadid=380551