If error in UDF

Perhaps.

Function UD(r As Range)
    If InStr(r.Value, " ") Then
        UD = Split(r.value, " ") (1)
    End If
End Function