Hiding lines automatically n excell

Hi livsstil,

Try this:

Sub GHide(): Dim G As Range
For Each G In Range("G1:G" & Range("G" & Rows.Count).End(xlUp).Row)
If G > 1 Then
Rows(G.Row).Hidden = True
Else
Rows(G.Row).Hidden = False
End If: Next: End Sub

and to get out of it:

Sub Unhide()
Rows.Hidden = False
End Sub