Sub Mix_Kyle()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 1) = "KYLE"
    Next
End Sub
Sub Mix_Neil()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 1) = "NEIL"
    Next
End Sub
Sub Mix_Shane()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 1) = "SHANE"
    Next
End Sub
Sub Mix_Luke()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 1) = "LUKE"
    Next
End Sub
Sub Mix_Richard()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 1) = "RICHARD"
    Next
End Sub
Sub Mix_Blank()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 1) = ""
    Next
End Sub
Sub Done()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 12) = "Y"
    Next
End Sub
Sub Incomplete()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 12) = "N"
    Next
End Sub
Sub Clear_YN()
    Dim c As Range
'---------------------
    For Each c In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If c.Value = ActiveCell.Value Then c.Offset(0, 12) = ""
    Next
End Sub