VBA: 'application.username' with multiple usernames

[BenGee]

Hi

Current code;

Private Sub Workbook_Open()
Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = True
Next
Dim sht As Worksheet
        If Application.UserName = "Name 1", "Name 2", "Name 3" Then Exit Sub
        For Each sht In ThisWorkbook.Sheets
            If sht.Name <> "Thresholds" Then
            sht.Visible = xlSheetVeryHidden
 End If
 Next
    Sheets(Environ("UserName")).Visible = True
 End Sub

However, this line isn't working;

       If Application.UserName = "Name 1", "Name 2", "Name 3" Then Exit Sub

But works with only;

       If Application.UserName = "Name 1" Then Exit Sub

Can't seem to figure it out. Any help would be fantastic! Thanks in advance

 

[FormR]

However, this line isn't working;

       If Application.UserName = "Name 1", "Name 2", "Name 3" Then Exit Sub

Hi, it would need to be written more like this:

If Application.UserName = "Name 1" Or Application.UserName = "Name 2" Or Application.UserName = "Name 3" Then Exit Sub

Or an alternative might be to use a Select Case statement - something like:

Select Case Application.UserName
  Case "Name 1", "Name 2", "Name 3": Exit Sub
  Case Else
      For Each sht In ThisWorkbook.Sheets
          If sht.Name <> "Thresholds" Then
             sht.Visible = xlSheetVeryHidden
          End If
      Next
End Select

 

[VBA Geek]

If InStr(1, "|Name 1|Name 2|Name 3|", "|" & Application.UserName & "|") > 0 Then Exit Sub

 

[BenGee]

Thanks FormR - This worked perfectly.

VBA Geek, thanks for your help also