Excel way to extract all the capitalised words in list

[Alex-B]

Does anyone know of an Excel way to extract all the capitalised words in, say, the following text and list them in a column, please? Ideally, I'd like to filter out text such as "The" at the start of a sentence and just extract the terms like "Borrower", "Finance Parties", "Finance Documents", "Agent"
etc.

Thanks,

This is the text that I was talking about:

The continuing obligations of the Finance Parties to the Borrower under the Finance Documents are subject to the Agent having received all of the documents and other evidence listed in Part III (Conditions Subsequent) of Schedule 2 (Conditions Precedent) in form and substance satisfactory to the Agent within the time frame set out therein unless waived by the Agent on such terms as the Lenders consider fit and the Borrower shall procure that all such documents and evidence are provided within such relevant timeframes. The Agent shall notify the Borrower and the Lenders promptly upon being so satisfied.

[mrice]

Maybe these two macros will help.

Sub Test()
Dim CapitalisedWord As Boolean
CapitalisedWord = False
CapitalisedPhrase = False
For N = 1 To Len(Cells(1, 1))
    Select Case Asc(Mid(Cells(1, 1), N, 1))
        Case 65 To 90
            If N = 1 Then
                CapitalisedWord = True
                CurrentWord = Mid(Cells(1, 1), 1, 1)
            ElseIf Asc(Mid(Cells(1, 1), N - 1, 1)) < 65 Or Asc(Mid(Cells(1, 1), N - 1, 1)) > 90 Then
                CapitalisedWord = True
                CurrentWord = Mid(Cells(1, 1), N, 1)
            End If
        Case 97 To 122
            If CapitalisedWord = True Then
                CurrentWord = CurrentWord & Mid(Cells(1, 1), N, 1)
            Else
                Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = CurrentWord
                CurrentWord = ""
            End If
        Case Else
            Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = CurrentWord
            CurrentWord = ""
            CapitalisedWord = False
    End Select
Next N
End Sub

Sub Test2()
MyString = Cells(1, 1)
MyString = Application.Substitute(MyString, ",", " ")
MyString = Application.Substitute(MyString, "(", " ")
MyString = Application.Substitute(MyString, ")", " ")
MyString = Application.Substitute(MyString, ".", " ")
For N = 1 To 10
MyString = Application.Substitute(MyString, "  ", " ")
MyString = MyString & " xxxxx"
Next N
MyArray = Split(MyString, " ")
CapitalisedPhrase = ""
For N = 0 To UBound(MyArray)
    If UCase(Left(MyArray(N), 1)) = Left(MyArray(N), 1) Then
        CapitalisedPhrase = CapitalisedPhrase & " " & MyArray(N)
    Else
        Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Trim(CapitalisedPhrase)
        CapitalisedPhrase = ""
    End If
Next N
End Sub

They give somewhat different results. Each assumes that the text is pasted into cell A1. Answers appear in Range C2 downwards.

[Alex-B]

Hi thank for this, but I have tried to make it work nothing seems to be happening. Could you explain the way that this need to be done?

Thanks again!

[Alex-B]

It has worked out, but it only makes a list of all capitalized words like this one below:

The
Finance
Parties
Borrower
Finance
Documents
Agent
Part
I
Conditions
Subsequent
Schedule
Conditions
Precedent
Agent
Agent
Lenders
Borrower
The
Agent
Borrower
Lenders

and what I need is a list of phrases like

"Borrower", "Finance Parties", "Finance Documents", "Agent" with filtering out words like "The" or "I" and so on.

[mrice]

Slightly amended form in the attached workbook.

[Alex-B]

Thank you very much!!!

It all works now, just need to check the script to see how you did it.

Thanks again!!