Excel unhide sheet named in cell

[moroglu]

Hi I hope you can help me with below.
In sheet2 cell B8 there's name of hidden sheet. Is there a vba I can use to unhide the sheet based on the value of this cell?

when I use below it's working
Worksheets("Template").Visible = True

but I would like to refer to cell B8, which is variable, where hidden sheetnames can be entered

 

[Fluff]

Hi & welcome to the board.
How about

Sheets(Sheets("[COLOR=#ff0000]Sheet1[/COLOR]").Range("B8").Value).Visible = True

change sheet name in red to suit

 

[Coding4Fun]

Sub UnHideSheet()
Dim shtValue As String


shtValue = Sheets("Sheet2").Range("B8").Value


Worksheets(shtValue).Visible = True


End Sub

 

[moroglu]

Thank you both for your quick reply.
coding4fun this works on my template. thanks a lot

 

[Coding4Fun]

Glad that worked for you, I was thinking if you are trying to use this across multiple sheets the previous solution will not work. You mentioned you would have "sheetnames" in Cell B8 of Sheet2.

but I would like to refer to cell B8, which is variable, where hidden sheetnames can be entered

If you want to enter multiple sheet names you could use this, enter comma separated values in Cell B8 Sheet2 and it will unhide them all.

In my example I had a workbook with 3 sheets, Sheet1, Sheet2 and Sheet3.

I hid Sheet1 and Sheet3 and then in Cell B8 of Sheet2 I entered

"Sheet1, Sheet3" and ran the following code, which unhide's Sheet1 and Sheet3

Sub UnHideSheet()
Dim shtValue As String


shtValue = Sheets("Sheet2").Range("B8").Value


Dim rawArray() As String


rawArray = Split(shtValue, ", ")


Dim index As Long
For index = LBound(rawArray) To UBound(rawArray)
    Worksheets(rawArray(index)).Visible = True
Next index


End Sub