Setting the last Row

[elemental6]

I am having issues limiting the last row in excel.
I want it to only allow and display at most 121 rows.
what i have is
Dim lastrow As Integer
lastrow = Worksheets("Broad").Range("A122").End(xlUp).Row
but it seems that it doesn't work, like when i press down on the keyboard it just keeps going down and stops at 65536

 

[SteveO59L]

In the VBA editor, select the sheet you want to place the restriction on.


In the properties window for the sheet, there should be a "Scroll Area" property. Set this to be the area you want accessable.

 

[priyatoshsarkar]

Try this one..

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row