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...

Based on your example:

Sub UpperONLY()
Dim LR As Long, cell As Range, RNG As Range
LR = Range("A" & Rows.Count).End(xlUp).Row
Set RNG = Range("A1:A" & LR)
    
    For Each cell In RNG
        If cell = UCase(cell) Then cell.Copy Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
    Next cell

Set RNG = Nothing
End Sub

Try using an Advanced Filter...

Using your posted data in A2:A8

A1: MyList

B1: MyList

G1: IsUCase.....(or blank or any text that is not a column heading)
G2: =EXACT(A2,UPPER(A2))

Notice that we are referencing the first data row...not the heading

From the Excel Main Menu:
Data.Filter.Advanced Filter
List_range: (select A1:A8)
Criteria range: G1:G2
Check: Copy to another location
Copy to: (select B1)
Click: OK

The Advanced Filter will list all records that test TRUE for all upper case under cell B1.

Is that something you can work with?

i was very near to the solution.i used exact & upper functions also.but i think i messed up in using the right function at the right place.any ways,thanks for the solutions ...