Hide/unhide sheets as per list in named range

Hi
I wonder can help me. I have the following sheets within my workbook:

Interface
properties M60
properties M61
properties M62
properties M64
properties general

On sheet "properties general" in cells G1 to G7 I have the following values:

G1 ---- Sheets (properties)
G2 ---- All sheets
G3 ---- properties M60
G4 ---- properties M61
G5 ---- properties M62
G6 ---- properties M64
G7 ---- properties general

Now I have created a dynamic damed range (Sheet_count_DYNAMIC_Properties). This named range essentially covers G3 to G7 (highlighted in green).

My question is, how to code in VBA to hide all sheets declared in named range Sheet_count_DYNAMIC_Properties???. I have attached example xls.
Any help is much appreciated.

Hi rain4u, try the following two procedures:

Sub hide_properties()

    Dim Ws As Worksheet, Sht As Worksheet
    Dim dRng As Range, Rng As Range
    
    Set Ws = Worksheets("properties general")
    Set dRng = Ws.Range("G3:G7")
    For Each Rng In dRng
        For Each Sht In Sheets
            If Sht.Name = Rng.Value Then
                Sht.Visible = xlSheetHidden
            End If
        Next Sht
    Next Rng
    

End Sub

Sub Un_hide_properties()

    Dim Ws As Worksheet, Sht As Worksheet
    Dim dRng As Range, Rng As Range
    
    Set Ws = Worksheets("properties general")
    Set dRng = Ws.Range("G3:G7")
    For Each Rng In dRng
        For Each Sht In Sheets
            If Sht.Name = Rng.Value Then
                Sht.Visible = xlSheetVisible
            End If
        Next Sht
    Next Rng

End Sub

Do you really need to have the list on a sheet. Someone could delete that list or a sheet name in it & the code would.t work.

You could simply have the list within the code

Option Explicit

Sub HideEm()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
        Case "Interface", "Properties M60", " Properties M61", "Properties M62", _
             "Properties M64", "Properties general"
            ws.Hidden = xlSheetVeryHidden
        Case Else
        End Select
    Next ws
End Sub