How to Unhide worksheets identified by specific cells in main sheet

How to unhide worksheets identified by specific cells in main sheet

Requirement:

The user has a workbook with about 120 hidden worksheets, where every worksheet contains the accounts for a different company.

Each worksheet is named according to its ID# in the main database (i.e. they are all numeric tab titles)

The user was hoping to add a column to my database with a Dropdown box with two options: SHOW or HIDE.

If set to SHOW, then the corresponding worksheet should be visible. If set to HIDE, then it should be hidden.

So, for example:

1 Company X HIDE
2 Company Y SHOW
3 Company Z HIDE

Etc...

Is there an IF-THEN-ELSE code that would do this?

Solution:

A rather simple solution is to have a event macro triggered by your choices ...

Where are the worksheets names actually stored ?

Something along these lines :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = "Hide" Then
    Sheets(Target.Offset(0, -1).Value).Visible = False
  Else
    Sheets(Target.Offset(0, -1).Value).Visible = True
  End If
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Carim.