Displaying selected rows & columns

[ccameron]

Hi everyone,
Just wondering how to make only certain rows and columns visible.
I would like to be able to have rows 1 to 20 and columns A to M visible, and the rest disapear. I have seen it on other worksheets and would like to know how to do it with some of my sheets, any help would be appreciated.

Thanks in advance

 

[VoG]

Try this

Sub Hidestuff()
Rows("21:" & Rows.Count).Hidden = True
Range(Cells(1, 14), Cells(1, Columns.Count)).EntireColumn.Hidden = True
End Sub

 

[ccameron]

Thanks Vog,
I will give it a go.

 

[Peter_SSs]

For the columns you could also use:

Columns(14).Resize(, Columns.Count - 13).Hidden = True

Or, longer code but less of trying to work out the row/columns numbers that you are trying to hide and a more positive approach to what you want to show, especially if the range isn't bounded by 2 edges of the worksheet like the OPs example:

Sub ShowRangeOnly()
    With Cells
        .EntireColumn.Hidden = True
        .EntireRow.Hidden = True
    End With
    With Range("G8:M20")
        .EntireRow.Hidden = False
        .EntireColumn.Hidden = False
        .Cells(1, 1).Select
    End With
End Sub