Grouping Sheets using VBA to auto hide

I am trying to make a workbook that will group diffrent types of sheets such as P&L's, Site information and Vehicles. Excel file enclosed.

I have used this code which works:

Private Sub Worksheet_Activate()
Dim sh As Worksheet 'Object
Dim arr As Variant

arr = Array("Facility 1 P&L", "Facility 2 P&L", "Facility 3 P&L") '

On Error GoTo XIT
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

For Each sh In ThisWorkbook.Sheets
If Not sh.Name Like "Master*" Then
sh.Visible = xlSheetHidden
End If
Next sh

For Each sh In Sheets(arr)
sh.Visible = xlSheetVisible
Next sh

XIT:
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub



Private Sub Worksheet_Deactivate()
Dim sh As Worksheet
Dim arr As Variant

arr = Array("Facility 1 P&L", "Facility 2 P&L", "Facility 3 P&L") '

On Error GoTo XIT
With Application
.EnableEvents = False
.ScreenUpdating = False
End With

For Each sh In Sheets(arr)
sh.Visible = xlSheetVisible
Next sh

XIT:
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub


Now the problem that I have is although I can rename the array sheets and get them to hide, the sheets Master1, Master2 and Master3 would be better named P&L, Site Info and Vehicles.

I assume this function controls the display of the master sheets so they are always on view:

For Each sh In ThisWorkbook.Sheets
If Not sh.Name Like "Master*" Then
sh.Visible = xlSheetHidden
End If
Next sh

Is there a way to change the master* to use the three above. Every time I try and change one the sheet disappears.

Thanks

Are there no takers to the problem????

The forum has been down for 24 hours, but you also might have to add some code tags before people will look at it.