Private Sub Workbook_Open()
Application.ScreenUpdating = False
[B]MsgBox Application.Username[/B]
[B]MsgBox Environ("username") [/B]
Sheets(Environ("username")).Visible = True
With Sheets("Admin")
For i = 2 To .Range("A6500").End(xlUp).Row
If UCase(.Cells(i, "A")) = UCase(Environ("username")) Then
Sheets(.Cells(i, "B").Value).Visible = -1
Exit For
End If
Next
End With
Application.ScreenUpdating = True
End Sub