Finding a Worksheet to Unhide among Many Hidden Sheets

Steve has a workbook in which he creates a new worksheet tab for each project he works on. To keep things manageable, he hides the completed tabs/projects. Steve now has 100+ hidden worksheets. On a regular basis he has a need to revisit a completed project. To do, Steve chooses to unhide worksheets. This displays the Unhide dialog box which contains the hidden worksheet names, in no apparent order. To find a tab/project, he needs to scroll through this very small dialog box and look for the right tab. Steve finds this very laborious and time-consuming, so he is wondering if there is a a better way to find and unhide the worksheet for a completed project.

One solution to this all-too-common problem is that you could create an index or table of contents for the worksheets in your workbook. You do this by adding a new worksheet and then putting hyperlinks on the worksheet to all the various worksheets in your workbook. It could include just about any information you want about the worksheets (in addition to the hyperlink). Click the hyperlink and your desired worksheet is displayed, without the need of scrolling through any dialog boxes.

You could also create a second workbook that contains just your completed projects. It is quite easy to move worksheets from one workbook to another, so using two workbooks ("active" and "completed") would be a snap. Plus, you wouldn't need to hide any of the worksheets in the workbook containing the completed projects, and you could put them in any order desired.

If you prefer to keep your workbook as is, then you may want to consider creating a macro that would make displaying your hidden worksheets a snap. Consider the following example:

Sub UnHideWorksheets()
    Dim sSheetName As String
    Dim w As Worksheet
    Dim sTemp As String

    sTemp = "Name (or partial) of sheet to show?"
    sSheetName = InputBox(sTemp, "Show Hidden Sheet")
    If sSheetName > "" Then
        sSheetName = LCase(sSheetName)
        For Each w In Sheets
            w.Tab.ColorIndex = xlColorIndexNone
            sTemp = LCase(w.Name)
            If Instr(sTemp, sSheetName) Then
                w.Visible = True
                w.Tab.ColorIndex = 6
            End If
        Next w
    End If
End Sub

The macro asks the user for a worksheet name, and then steps through all the worksheets. If it finds a match, then the worksheet is displayed and the color of the worksheet's tab is set to yellow. The macro actually works with partial matches, meaning that you can enter just a part of a worksheet name, and any worksheets that contain the partial match will be unhidden. You could easily assign the macro to a shortcut key or your Quick Access Toolbar so you could call it into action in a snap.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (13589) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, and Excel in Office 365.