Zeilen ein-ausblenden

Sub blenden()
'* H. Ziplies                                     *
'* 06.03.05                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
'Einblenden und Ausblenden der EDV Raumansicht
Dim Loi As Integer
Application.ScreenUpdating = False
For Loi = 36 To 67
Rows(Loi).EntireRow.Hidden = Not Rows(Loi).EntireRow.Hidden
Next Loi
Application.ScreenUpdating = True
End Sub