Function extract the uppercase letters from strings of text

Hello,

I need to extract the uppercase words from strings of text.

Example: Assortment or Count Change Case
Needed result: ACCC


Thank you!!!

Hi Hellga,
try this UDF

Function Hellga(txt As String) As String
Dim x() As Byte, i As Long, s As String
x = StrConv(txt, vbFromUnicode)
For i = 0 To UBound(x)
    If x(i) <= 90 And x(i) >= 65 Then s = s & Chr(x(i))
Next
Hellga = s
End Function

formula on the sheet will look like this

Formula:

=Hellga(A1)

Thank you, Nilem!
It works fine!