Unhide All Rows and Columns

2 minutes to read
127017 14

This simple macro automatically unhides all rows and columns for you.

VBA Code

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

How This Macro Works

In this macro, we call on the Columns collection and the Rows collection of the worksheet. Each collection has properties that dictate where their objects are hidden or visible. Running this macro unhides every column in the Columns collection and every row in the Rows collection.

How to Use This Macro

To use this macro, you can copy and paste it into a standard module:

  1. Activate the Visual Basic Editor by pressing ALT F11.
  2. Right-click the project/workbook name in the Project window.
  3. Choose Insert -> Module.
    Insert Module
  4. Type or paste the code in the newly created module.

Recommended content

  1. Insert Blank Rows Between Existing Rows In Excel VBA
  2. Excel VBA: Limit The Number Of Times Workbooks Can Be Used
  3. Formatting a Range of Cells In Excel VBA
  4. How To List All Files In Folder And Sub-folders Use Excel VBA
  5. Prevent the Workbook Closing If a Cell is Empty
  6. Protect or Unprotect All Worksheets At Once

Most viewed

  1. Formatting a Range of Cells In Excel VBA
  2. How To Set Column Width In cm At Once
  3. How to Quickly Extract Pictures From An Excel File
  4. Select a Range In Excel VBA
  5. Find and Select the First Blank Cell in a Column VBA
  6. Print Worksheets VBA

Leave a comment

Your email address will not be published. Required fields are marked *

Format your code: <pre><code class="language-vba">place your code here</code></pre>

14 comments
  1. VA
    Vaughan

    Sorry, this happens when the worksheet is protected, but the macros work when the sheet is unprotected.

  2. VA
    Vaughan

    Hi. When I use this macro there is an error message that it s "unable to set the Hidden property of the range class"

  3. DS
    Dylan Sabo

    To Unhide through all worksheets in a Workbook run the code below: ...

    Sub UnhideAll()
    Dim ws As Worksheet
    Dim starting_ws As Worksheet
    Set starting_ws = ActiveSheet
    For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    Columns.EntireColumn.Hidden = False
    Rows.EntireRow.Hidden = False
    Next
    starting_ws.Activate
    End Sub

More comments