Formula checks multiple cells for words and outputs answer depending on cells

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Value <> "" Then
If Not Intersect(Range("C3:C5"), Target) Is Nothing Then
    If Application.WorksheetFunction.CountIf(Range("C3:C5"), "Not Bought") > 0 Then
        Range("C2").Value = "Not Bought"
    Else
        Range("C2").Value = "Bought"
    End If
ElseIf Target.Address = "$C$2" Then
        Range("C3:C5").Value = Target.Value
End If
End If
Application.EnableEvents = True
End Sub