Help in 'unhiding' sheets

[ijheyburn]

I have a workbook with a number of sheets that are hidden and one that remains visible at all times (it's called 'Front Sheet').

However I also have another sheet which I would like to remain visible at all times - it's called Quick Glance Overview; currently it remains hidden and only appears when i click through to it, when I click off it only 'Front Sheet' remains visible

I have the following in the view code section of the 'Front Sheet' - how would I amend this so that the 'Quick Glance Overview' sheet also remains visible at all times? Any help would be appreciated:

Private Sub Worksheet_Activate()
Dim sh As Worksheet

For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Front Sheet" Then
sh.Visible = xlSheetHidden
End If
Next sh
End Sub

There are a few more entries relating to cells that I click to display sheets that I have hidden but as I say I wish for the Quick Glance Overview to remain visible at all times - can someone help please?

 

[Jonmo1]

Welcome to the board..

Try

If sh.Name <> "Front Sheet" AND sh.Name <> "'Quick Glance Overview" Then

 

[JoeMo]

Change this:
If sh.Name <> "Front Sheet" Then
to this:
If sh.Name <> "Front Sheet" and sh.Name <> "Quick Glance Overview" Then

 

[ijheyburn]

Wunderbar - thank you very much - so simple in the end but this is a great help for me. Thanks again