Extract Uppercase Words on Excel

Question

I need to duplicate just one word from each of my 167 cells' strings of text—which each contain an uppercase word—to a new cell. I tried using the EXACT formula, but it simply determines whether a word in the text is uppercase and returns "true" or "false."

Answer 1

Try the following User Defined Function:

Public Function grabber(s As String) As String
    grabber = ""
    arry = Split(s, " ")
    For Each a In arry
        If a = UCase(a) Then
            grabber = a
            Exit Function
        End If
    Next a
End Function

It will extract the first uppercase word in the cell.

I hope this helps you.