Unhide a Sheet when User Matchs into a list

[TEIXEIRE]

Hello,

Sorry, I am introducing in VBA codes,

I have a sheet called "AuthUsers", and in collunm A, I have the windows name (not the user but the name registered) of the responsibles in each row,

I want to open the workbook, and unhiden the sheet called "Week Update", if the Applicatin.UserName matchs in any row of the sheet "AuthUsers"

I did the following code, but didnt work.
Could u help me on that ?

Sub Authorized_Report_Users()
'Only for hide/unhide specific sheets for users who is responsible to keep report updated

    Var1 = WorksheetFunction.Match(Application.UserName, Sheets("AuthUsers").Columns(1), 0)

    If Not WorksheetFunction.IsError(Var1) Then

        Sheets("Week Update").Visible = True

    End If


End Sub

 

[TEIXEIRE]

Option Explicit

Sub ChkUsers()
Dim x As String

On Error Resume Next

Application.ScreenUpdating = False
Sheets("AuthUsers").Visible = True
    With Sheets("AuthUsers")
        x = .Range("A2:A10").Find(Application.UserName) '<-- change the range to suit
      
        If x = Application.UserName Then
            Sheets("Week Update").Visible = True
        Else
            Sheets("AuthUsers").Visible = False
        End If
    End With
Sheets("AuthUsers").Visible = False
Application.ScreenUpdating = True
End Sub

 

[Logit]

Great ! Thank you.

 

[TEIXEIRE]

Thank you, to help me !