Here's the macro:

Sub UnhideAll()
'Unhides all rows
'Freezes window at E4
Cells.Select
Range("B1").Activate
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Range("E4").Activate
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub

Dave
--
A hint to posters: Specific, detailed questions are more likely to be
answered than questions that provide no detail about your problem.