Deling af navne i excel

Function DelNavn(cel As String, del As String) As String

If IsEmpty(cel) Then Exit Function
    If del = 1 Or del = 2 Or del = 3 Then
        Select Case del
            Case Is = 1
                If InStrRev(cel, " ") = 0 Then
                    DelNavn = cel
                Else
                    DelNavn = Mid(cel, 1, InStr(1, cel, " ", 1) - 1)
                End If
            Case Is = 2
                If InStr(1, cel, " ", 1) = InStrRev(cel, " ") Then
                    DelNavn = Mid(cel, InStrRev(cel, " ") + 1, Len(cel))
                Else
                    DelNavn = Mid(cel, (InStr(1, cel, " ", 1) + 1), InStrRev(cel, " ") _
                    - InStr(1, cel, " ", 1) - 1)
                End If
            Case Is = 3
                DelNavn = Mid(cel, InStrRev(cel, " ") + 1, Len(cel))
        End Select
    Else
        DelNavn = CVErr(xlErrValue)
    End If
End Function