Excel: Get Last Word From Text String

Got any Excel/VBA Questions? Free Excel Help.

This UDF will extract the last word from a Text String.

The Code

Function ReturnLastWord(The_Text As String)

Dim stGotIt As String



''''''''''''''''''''''''''''''''''''''''''

'Written by OzGrid Business Applications

'www.ozgrid.com



'Extracts the LAST word from a text string

''''''''''''''''''''''''''''''''''''''''''

    stGotIt = StrReverse(The_Text)

    stGotIt = Left(stGotIt, InStr(1, stGotIt, " ", vbTextCompare))



    ReturnLastWord = StrReverse(Trim(stGotIt))

End Function

To use this UDF push Alt+F11 and go Insert>Module and paste in the code. Push Alt+Q and save. The Function will appear under "User Defined" in the Paste Function dialog box (Shift+F3). Use the Function as shown in the graphic example below.