Cacher is the code snippet organizer for pro developers

Sub AuthUser()

Dim Cell As Range
Dim person As String
Dim authperson As String
person = Application.UserName
'----------------------------------------
'written by Angelina Teneva, 2013
'-----------------------------------------

For Each Cell In ActiveWorkbook.Worksheets("Names").Range("E1:E100")
    authperson = Cell.Value

If person = authperson Then
        
        Worksheets("data").Visible = xlSheetVisible
    Else
        Worksheets("data").Visible = xlSheetVeryHidden
        MsgBox ("Sorry, you are not authorized to view this data")
End If

Exit For
Next Cell

End Sub