Sub LogIn()
    
    'stops the screen from flickering
    Application.ScreenUpdating = False
    
    'declares variables
    Dim uname As String
    Dim pword As String
    Dim PasswordFound As Boolean
    
    'moves worksheet and sets values to variables
    Sheets("LogInForm").Select
    uname = Range("Username")
    pword = Range("Password")
    
    'if both values are not empty then check to see if they are a valid combination
    If uname < "" And pword < "" Then
        
        ' Move to the sheet of username/password combos
        Sheets("UserDetails").Select
        Range("A1").Activate
        
        PasswordFound = False
        
        ' Keep reading until the bottom of the list of usernames
        Do Until ActiveCell = ""
            ' do the username and password match?
            If ActiveCell = uname And ActiveCell.Offset(0, 1) = pword Then PasswordFound = True
            ' move down to the next row
            ActiveCell.Offset(1, 0).Activate
        Loop
        
        'if correct uname and pword are correct values
        If PasswordFound Then
        
            'move worksheets and reset values , then moves sheets
            Sheets("LogInForm").Select
            Range("Username") = ""
            Range("Password") = ""
            Sheets("MainMenu").Select
            MsgBox "Your login was successful", vbOKOnly, "Login Success"
        'if values dont match
        Else
        
            MsgBox "Please try again, You must enter a valid username and password", vbOKOnly, "Login Unsuccessful"
            
        'ends if statement
        End If
    
        'if the boolean is true
        If ErrorX = True Then
            
            'moves sheets, clears form, displays message box
            Sheets("LoginForm").Select
            
            Range("Username") = ""
            Range("Password") = ""
    
            
            'ends if statement
        End If
    
    ' Both password and username not entered
    Else
        
        'displays error
        MsgBox "You must enter both a username and password", vbOKOnly, "Username and Password Required"
    
    'ends if statement
    End If

End Sub