A_Main

Private Sub auto_open()
    checkUser
    UnhideAllSheets
    If UserForm.Visible = False Then UserForm.Show
    Worksheets(2).Select
End Sub

Private Sub auto_close()
    Worksheets("Title").Select
    HideAllSheets
End Sub