Don,

Wierd but it's still doing the same thing. It's unhiding the columns,
but it's NOT unhiding the rows or autofitting them? Now I'm having
another problem and I wonder if it's somehow related. I don't know
what I did, but I cannot use the scroll bar on the right. I can't page
down or page up. Whatever's on the screen when I open the file is all
I can see. I have no idea and don't know what to do to fix it.

Any ideas?

Regards,
Tahrah


Don Guillett wrote:
try

Sub Return_To_Normal()
rows.hidden=false
columns.hidden=false
Rows("5:2002").AutoFit
'specify your range
range("a5:x2002").sort Key1:=Range("B5"), Order1:=xlAscending, _
Key2:=Range("A5") , Order2:=xlAscending, Header:=xlGuess
End Sub


--
Don Guillett
SalesAid Software

"tahrah" wrote in message
oups.com...
I wrote a "simple" macro to return the screen to normal. It will be a
button the user can click after they've run another macro that hides
some rows and columns. This "simple" macro is supposed to unhide the
columns, unhide the rows, and sort back to the original sort. At first
I only had the unhide and sort, but although it was unhiding all the
rows, it still wasn't showing them. So I added the autofit. But it's
not working still. It will unhide the columns and it will unhide the
rows, but the rows are still invisible because they're coming back as
like size 0 or something. The autofit function works manually but it's
NOT working in the macro. Can anyone see anything wrong with this:

Sub Return_To_Normal()
Cells.Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Rows("5:2002").Select
Cells.EntireRow.AutoFit
Selection.sort Key1:=Range("B5"), Order1:=xlAscending,
Key2:=Range("A5") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A5").Select
End Sub