Extract UPPER CASE words.

i had a scenario in which i need to extract only the UPPER case words from a column and paste them in the adjacent column. Is there any formula or vba routine for it.

Ex:
COL A contains the following:
FIRST
second
THIRD
FOURTH
fifth
sixth
SEVENTH

......and so on.

i need to extract only the Letters or words which are in total Uppercase and paste them in the next column ..i.e. COLUMN B..

any forumlas...