Extract uppercase words from string

Hi,

I'm new at this, but really need help to save time on thousands of cells worth of manual work. I need to extract the uppercase words from strings of text. I'll give an example, and show which VBA code I found on my own and how it seemed to get me closer but not all the way there.

Example:

A1: The quick brown Fox Jumps over the lazy dog
A2: The Quick brown fox jumps over the lazy Dog

Ideally in B1: The Fox Jumps
B2: The Quick Dog




I found this code:

Please Login or Register  to view this content.

.....Which only took the capital letter itself. From the above example:

Outcome B1: TFJ


Any help would be appreciated! Thanks.