How to modify existing code, so that the last row is 23, instead of END (very last row used)
Dim RowNdx As Long
Dim LastRow As Long
[CODE]LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "B").Value = "x" Then
Rows(RowNdx).Hidden = True
End If
Next RowNdx[/CODE
Bookmarks