Macro to select Sheet from List

[Brampton76]

Greetings,

I have used the following coding in the past to select from 1 of 12 sheets where the sheet has been hidden using one of 12 buttons:

Sub JanuarySheetOpen()
Sheets("January").Visible = True
Sheets("January").Select
Range("A2").Select
End Sub

I now have another workbook where I would like to select from 1 of 89 sheets where the sheets have been hidden (and would like to avoid having 89 separate buttons!). I thought I could use a Data Validation list and refer to the cell as follows:

Sub SheetOpen()
Sheets("Dashboard!H14").Visible = True
Sheets("Dashboard!H14").Select
Range("A2").Select
End Sub

but it would appear not to be the case. I keep running into a 'Runtime Error 9 - Subscript Out of Range' I wonder if someone could point me in the right direction? Also, this may not be the best way to achieve this? Many thanks

Glenn

 

[VoG]

Try

Sheets(Sheets("Dashboard").Range("H14")).Visible = xlSheetVisible

 

[Brampton76]

Sorry, I get a Runtime Error 13, Type Mismatch.

Glenn

 

[VoG]

Odd. Maybe

Sheets(Sheets("Dashboard").Range("H14").Value).Visible = xlSheetVisible

 

[Norie]

Glenn

What are the names of the worksheets?

 

[Brampton76]

Good Evening,

The 'front end' is Dashboard and the first sheet I am after is Currys.

Glenn

 

[Brampton76]

Many thanks Peter. This works nicely. I ended up with:

    Sheets(Sheets("Dashboard").Range("H8").Value).Visible = xlSheetVisible
    Sheets(Sheets("Dashboard").Range("H8").Value).Select
    Range("A1").Select