VBA to hide all sheetson workbook open, but then unhide sheets where sheet name matches en

great work Vraag, in the end i ended up using the below code.

Private Sub Workbook_Open()
On Error Resume Next
For Each sh In Sheets
Dim StrName As String
    StrName = UCase(Environ("UserName"))
        If sh.Name = "Team Dash" Or sh.Name = StrName Then sh.Visible = True Else sh.Visible = xlSheetVeryHidden
Next sh
End Sub