Unhide Sheets Listed in Range

[Innoguide]

OK - way out of my depth here
I'm using the code below to hide all of the sheets except the active one, but then I need to reopen a variable selection of worksheets that are specified in individual cells in a Range called "Standard_View". Note that some of the cells in the range could be blank

Any suggestions on VBA to open the specified sheets would be much appreciated!

Sub HideAllWorksheetsExceptActive()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub

 

[Fluff]

How about

Sub innoguide()
   Dim Cl As Range
   
   For Each Cl In Range("Standard_View")
      If Cl.Value <> "" Then Sheets(Cl.Value).Visible = xlSheetVisible
   Next Cl
End Sub

 

[Innoguide]

How about

Sub innoguide()
   Dim Cl As Range
  
   For Each Cl In Range("Standard_View")
      If Cl.Value <> "" Then Sheets(Cl.Value).Visible = xlSheetVisible
   Next Cl
End Sub

Thanks Fluff - exact;y what I needed!

 

[Fluff]

You're welcome & thanks for the feedback.