Configuration: Windows XP Firefox 3.0.13
Function last_word(texto As Range) As String tablo = Split(texto) last_word = tablo(UBound(tablo)) End Function