Hi Dave

No need to do selection, other than for setting where the freeze panes
is to occur

Try
Sub UnhideAll()
'Unhides all rows/columns
'Freezes window at B6

With ActiveSheet
..Rows.Hidden = False
..Columns.Hidden = False
End With
ActiveWindow.FreezePanes = False
Range("B6").Select
ActiveWindow.FreezePanes = True
End Sub

--
Regards

Roger Govier


"Dave F" wrote in message
...
Sub UnhideAll()
'Unhides all rows/columns
'Freezes window at B6
Cells.Select
Range("B1").Activate
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Range("B6").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub

This was recorded via the macro recorder and then slightly modified by
me.
My understanding is that the recorder does not create the most
efficient
code, but I don't know what's inefficient about this code.

Any advice?
--
Brevity is the soul of wit.