Unhide a Sheet Based on a Cell Dropdown

[tomexcel1]

Hi All

I have a 13 hidden sheets in my workbook, Based on the users input the correct sheet to unhide shows in sheet6 cell E10 ie (Upload A or Upload B etc).

My question is using VBA how can I make clicking a button unhide the correct sheet?

Any help is much appreciated! Thanks

Tom

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "E10" And Target.Value <> "" Then
      If Evaluate("isref('" & Target.Value & "'!A1)") Then
         Sheets(Target.Value).Visible = True
      Else
         MsgBox "Sheet " & Target.Value & " doesn't exists"
      End If
   End If
End Sub

This needs to go in the sheet module for sheet6

 

[tomexcel1]

Thanks Fluff!

Is there anyway to initiate this code when a command button in sheet 5 is pressed?

 

[Fluff]

Try

Sub tomexcel1()
   With Sheets("Sheet6").Range("E10")
      If .Value <> "" Then
         If Evaluate("isref('" & .Value & "'!A1)") Then
            Sheets(.Value).Visible = True
         Else
            MsgBox "Sheet " & .Value & " doesn't exists"
         End If
      End If
   End With
End Sub

 

[tomexcel1]

Works Perfect! Thank you so much! Just what I need

 

[Fluff]

You're welcome & thanks for the feedback