VBA to hide worksheets based on cell value

Hello,

I'm looking for a vba that can look up any visible/invicible worksheets then decided to hide or unhide the worksheets based on cell G1 from sheets "Report Builder". For example, if cell G1 from sheets(Report Builder) says Discrete Customers. It will hide any other sheets only display sheets "Report Builder" and Sheets " Discrete Customers".or if it say Product family it will hide all other sheets except sheets report builder and product family sheet.

Thank you for your help.

Hi tantcu

I think this does the job:

Sub HideShts()
Dim sht As Worksheet, strRpt As String

strRpt = Sheets("Report Builder").Range("G1")

For Each sht In ActiveWorkbook.Sheets
If sht.Name = strRpt Or sht.Name = "Report Builder" Then
    sht.Visible = xlSheetVisible
    Else
    sht.Visible = xlSheetHidden
    End If
    Next sht
    
End Sub

Best regards, Rob.

Thank you. It worked great!