How to unhide all rows and columns with a few exeptions?

[Fabulist]

Hello everyone,

How can I make this module:


Sub UnhideAll()
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
End Sub

Work on all sheets and not only on the one I am viewing? Is there another way?

Also, is it possible to exempt specific columns & rows on specific sheets?

Thank you in advance!

 

[Rick Rothstein]

Sorry, I thought I could do this myself to edit it in the future, is it that complicated?

You can as it is not that complicated.

For example, I need Row 35, 93 and column C to remain hidden on Sheet 6.

Simply use the unhide code My Aswer Is This provide and then unhide the rows and column immediately before the ScreenUpdating=True code line.

 

[My Aswer Is This]

'Here is what you need for you most recent request
'You should be able to see the way I did this and add more if you want
If you need more help just ask.

Sub Unhide_All()
Dim i As Long
Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Rows.Hidden = False
        Sheets(i).Columns.Hidden = False
    Next
'Here is what you need for you most recent request
'You should be able to see the way I did this and add more if you want
Sheets(6).Range("C1:C1").EntireColumn.Hidden = True
Sheets(6).Range("R35:R35, R93:R93").EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

If you want to hide Rows 35 to 45 and Rows 93 to 103 you would write the code like this:

Sheets(6).Range("R35:R45, R93:R103").EntireRow.Hidden = True

 

[Fabulist]

Yes, this is exactly what I was looking for. Thank you for your time everyone!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Yes, this is exactly what I was looking for. Thank you for your time everyone!