Hiding rows between the last row of data and row 100

**MasonSinclair** · 12-23-2011, 02:44 AM

Hi everyone,

i really need some help with this, im looking for some code to hide all the rows between 2 rows after the last row of data and row 100.
ive tried plenty of things but always get an error for a type mismatch. any help will be really appreciated

**mrice** · 12-23-2011, 03:36 AM

Try

Rows(Cells(99, 1).End(xlUp).Row + 3 & ":" & 100).RowHeight = 0

**royUK** · 12-23-2011, 03:37 AM

Try this

Option Explicit

Sub HideEmptyRows()
    Dim rRng As Range
    Dim lRws As Long
    With Sheet1
        Set rRng = .Cells(1, 1).CurrentRegion
        lRws = rRng.Rows.Count + 2
        On Error Resume Next
'toggle visibility
        .Rows(lRws & ":100").EntireRow.Hidden = Not .Rows(lRws & _
            ":100").EntireRow.Hidden
        On Error GoTo 0
    End With
End Sub