asked on

Excel Hidden Rows, not hidden, may row height?

I have a shared 97-2003 Excel Workbook ( I am using Excel 2010). All of sudden several rows are "hidden".

When viewng the row numbers, they skip

67
68
85
86

I have:
1) Select unhide all rows - no luck
2) Select all rows and did row height - no luck
3) Select all rows and did auto height - no luck

What does work:
1) If I put my cursor right on the top of row 85, it changes to double bars (height adjustment) and I can pull down row 84. Then go to top of 84, do the same for 83.

These "hidden" rows are spread out throughout the worksheet, I would like a command to correct this.

Thanks.

ASKER CERTIFIED SOLUTION

Steven Carnahan

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

McOz

Something like this?

Sub ResetRows()
    For Each r In ActiveSheet.UsedRange
        r.RowHeight = 15
    Next
End Sub

Open in new window

dlmille

You can do it in two steps and you have the menu items to complete it. If you'd like a macro, just ask, but its not really needed.

See this link: http://www.ehow.com/how_4445648_autofit-column-width-excel.html

Select all cells (top left of sheet), go to format menu, and select autofit options

Dave

dlmille

This macro will reset all cells HEIGHT and WIDTH to the standard height and width in all sheets in a given workbook.

Sub AutoFitAll()
Dim mySheet As Worksheet

    For Each mySheet In Application.Worksheets
        Cells.ColumnWidth = 8.43
        Cells.RowHeight = 15
    Next mySheet
    
End Sub

Open in new window

Cheers,

Dave

dlmille

Ahh yes- this macro will not only reset all HEIGHT and WIDTH, but turn off any filtering, so nothing should be hidden.

Sub AutoFitAll()
Dim mySheet As Worksheet

    For Each mySheet In Application.Worksheets
        Cells.ColumnWidth = 8.43
        Cells.RowHeight = 15
        mySheet.AutoFilterMode = False
    Next mySheet
    
End Sub

Open in new window

Dave