VBA: Unhide Sheet depending on cell value

[unknownymous]

Hello Gurus,

I am trying to create a macro where in if the cell value in the MAIN sheet matches one with the hidden sheet name, macro will unhide it.

By the way, those Data x Sheetswhere hidden because there's too many.
Example: In the MAIN sheet, if cell Value in A1 is "DATA 1" then it should unhide the tab with sheet name as "DATA 1"

' = = = This one is not working
Sub UnhideSheet()

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "MAIN" Then
If sh.Range("A1").Value = "DATA 1" Then sh.Visible = True
If sh.Range("A1").Value = "DATA 2" Then sh.Visible = True
If sh.Range("A1").Value = "DATA 3" Then sh.Visible = True
'Add more
'Add more
'Add more

End If
Next sh
End Sub

= = = =

Appreciate the help.

 

[RudRud]

only based in A1 Value in MAIN Sheet?

if A1 Value DATA 1 , then unhide DATA 1 sheet?

still need to check a2 a3 ?

Sub TEST()
Dim ws As Worksheet
Set ws = Sheets("MAIN")
On Error Resume Next

shtname = ws.Range("a1").Value
Worksheets(shtname).Visible = True


End Sub

 

[unknownymous]

only based in A1 Value in MAIN Sheet?

if A1 Value DATA 1 , then unhide DATA 1 sheet?

still need to check a2 a3 ?

Sub TEST()
Dim ws As Worksheet
Set ws = Sheets("MAIN")
On Error Resume Next

shtname = ws.Range("a1").Value
Worksheets(shtname).Visible = True


End Sub

All good now. Thanks!

 

[RudRud]

All good now. Thanks!

Glad to assist, If you have any further questions, please don't hesitate to ask/share with us

 

[wk9128]

pls try this code

Sub UnhideSheet()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "MAIN" Then
Select Case sh.Range("A1").Value
Case "DATA 1", "DATA 2", "DATA 3"
sh.Visible = xlSheetVisible
Exit For
' Add more conditions
End Select
End If
Next sh
End Sub