Ausgeblendete Zeilen einblenden

Alle ausgeblendeten Zeilen sollen eingeblendet werden.
 
Sub Zeilen_einblenden()
   Activesheet.Rows.Hidden = False
End Sub