Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C2:Q2], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
If Target <> "" Then Target = Left(Target, InStr(Target, " ") - 1)
Application.EnableEvents = True
End If
End Sub