Find Upper Case Text

[John1950]

I have searched the excel tips but can't find what I need, so maybe
someone on the Forum can help me. I have a sheet with roughly 12,000
lines, in 2 of the columns I have text but the problem is, some of it
is Proper Type and some of it is Upper Case. I need to be able to
*identify* (not change) the Uppercase Text but remembering that the
Propr Type has Cap at the begining. Is this possible to do?

 

[Bob Phillips]

For Each cel In ACtivesheet.UsedRange
If cell.value = UCase(cel.Value) Then
Msgbox cel.Address & " is Upper Case"
End If
Next cel

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Don Guillett]

Try

Sub finduppercase()
For Each c In Selection
If Len(c) > 0 And c = UCase(c) Then MsgBox c.Address
Next
End Sub