Modify code Open Excel workbook on specific computer

[sofas]

Hello, I have this code to open the workbook on a specific device. I want to modify it so that I can add other devices

Private Sub Workbook_Open()
If Environ("computername") <> "ADMIN" Then
    Application.DisplayAlerts = False
    MsgBox ("you can't run this workbook on this computer")
    ThisWorkbook.Close
    Application.DisplayAlerts = True
End If
End Sub

 

[rlv01]

Perhaps something like this.

Private Sub Workbook_Open()
    Select Case Environ("computername")
    Case "ADMIN", "ADMIN2", "ADMIN3", "ADMIN4", "ADMIN5"    ' <<< list of allowable devices
    Case Else
        Application.DisplayAlerts = False
        MsgBox "You can't run this workbook on this computer!", vbOKOnly Or vbCritical, Environ("computername")
        ThisWorkbook.Close
        Application.DisplayAlerts = True
    End Select
End Sub