Display the last 5 current rows of Rowsource in Listbox1 of Userfomr1 using a dynamic named range...

[chazrab]

Title should be self explanatory ?
Rowsource will always increase as rows are added, but the last 5 most current rows will always be displayed.
Rowsource = Sheet1! A2: G360 - but as mentioned, that will increase - i.e, cols are static, rows dynamic - row 360 will soon become row 361, etc.

My thinking is to define Rowsource as a dynamic Named Range, move to the last row in the range and select and display all 4 rows above it in the listbox, but I don't know how to do that.

I just want to see the last 5 entries displayed in the listbox. That's it in a nutshell.

Should be simple enough, I just can't see it.
Can someone please help me figure this out ?
cr

 

[DanteAmor]

If your listbox has height only to show 5 records, then you can use the following:

Private Sub UserForm_Activate()
  With ListBox1
    .RowSource = "Sheet1!A2:G" & Sheets("Sheet1").Range("A" & Rows.Count).End(3).Row
    .TopIndex = .ListCount
  End With
End Sub