Alle ausgeblendeten Zeilen einblenden

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