Bob Phillips
12/14/2006 3:18:00 PM
Selecting is not efficient, and working on all cells is a bad idea
Sub UnhideAll()
'Unhides all rows/columns
'Freezes window at B6
Range(Range("B1"), Range("B1").End(xlDown)).EntireRow.Hidden = False
Range(Range("B1"), Range("B1").End(xlToRight)).EntireColumn.Hidden =
False
Range("B6").Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
End Sub
--
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
"Dave F" <DaveF@discussions.microsoft.com> wrote in message
news:EB1B4B86-ABE9-4A45-BDE5-3E5FE780C7A5@microsoft.com...
> 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.