Macro to take only initials of a person

[kupseker]

Hey there,

I need a macro that takes only initials of a person;

For example : In A1 cell: Keanu Reeves -----Macro-----> In A2 cell: KR

Thanks in advance!

 

[Joe4]

If you always have a First Name and last name with a single space between them, this will work:

=LEFT(A1,1) & MID(A1,FIND(" ",A1)+1,1)

 

[kupseker]

The person can have middle name as well bu not necessarily, therefore I need something more flexible and applicable but thanks for a starter.

 

[Joe4]

OK. It is always best to lay out all your conditions/possibilities up front. In this situation, since there are an unknown number of initials, I would probably elect to create my own function to it in VBA, like this:

Function GetInitials(myName As String) As String

    Dim myLen As Long
    Dim i As Long
    Dim myInit As String

    myLen = Len(myName)

'   Exit function if zero length string
    If myLen = 0 Then Exit Function
    
'   Get first letter
    myInit = Left(myName, 1)
    
'   Loop through name
    If myLen > 2 Then
        For i = 2 To myLen - 1
            If Mid(myName, i, 1) = " " Then
                myInit = myInit & Mid(myName, i + 1, 1)
            End If
        Next i
    End If
    
'   Return value
    GetInitials = myInit
    
End Function

So, then we would just use this like any other function:
=GetInitials(A1)