Trying to write to the last row in a range. The following code works down to
( The next line fails ....
Thanks:


Private Function FindLastRow()
Dim R As Long
R = 2
Do While R < 65536 And Len(Cells(R, 11).Text) 0
R = R + 1
Loop
FindLastRow = R
End Function

Private Sub ListBox1_Click()
Lastrow = FindLastRow - 1
MsgBox Lastrow
Sheet1.Range("k1").Value = UserForm1.ListBox1.Value

( The next line fails - how should it be written?)
Sheet1.Range("kLastrow").Value = UserForm1.ListBox1.Value

End Sub

Sheet1.Range("k" & Lastrow).Value = UserForm1.ListBox1.Value


you can also get the lastrow with

lastrow = cells(rows.count,11).End(xlup).row
--
Regards,
Tom Ogilvy



"TK" wrote in message
...
Trying to write to the last row in a range. The following code works down
to
( The next line fails ....
Thanks:


Private Function FindLastRow()
Dim R As Long
R = 2
Do While R < 65536 And Len(Cells(R, 11).Text) 0
R = R + 1
Loop
FindLastRow = R
End Function

Private Sub ListBox1_Click()
Lastrow = FindLastRow - 1
MsgBox Lastrow
Sheet1.Range("k1").Value = UserForm1.ListBox1.Value

( The next line fails - how should it be written?)
Sheet1.Range("kLastrow").Value = UserForm1.ListBox1.Value

End Sub

Thanks Tom