Example - Sentence in Cell `A1` is `WO# 000000.0 for ITSHTJ in Q0 20000_ITAI0006:TBD Replacement PO` and I want to extract `ITAI0006`.

I have used below UDF but it's not helpful.

```
Function findUcase(Rng As Range) As Boolean
    Dim Txt
    Dim Desc() As String

    Desc = Split(Rng.Value, " ")
    For Each Txt In Desc
        If (UCase(Txt) = Txt) Then
            findUcase = True
            Exit Function
        End If
    Next
End Function

```