Find Upper Case Text

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?

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)


"John1950" <John1950.1z20zm_1132925100.7389@excelforum-nospam.com> wrote in
message news:John1950.1z20zm_1132925100.7389@excelforum-nospam.com...
>
> 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?
>
>
> --
> John1950
> ------------------------------------------------------------------------
> John1950's Profile:
http://www.excelforum.com/member.php...o&userid=18671
> View this thread: http://www.excelforum.com/showthread...hreadid=488145
>

Try

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

--
Don Guillett
SalesAid Software
donaldb@281.com
"John1950" <John1950.1z20zm_1132925100.7389@excelforum-nospam.com> wrote in
message news:John1950.1z20zm_1132925100.7389@excelforum-nospam.com...
>
> 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?
>
>
> --
> John1950
> ------------------------------------------------------------------------
> John1950's Profile:
> http://www.excelforum.com/member.php...o&userid=18671
> View this thread: http://www.excelforum.com/showthread...hreadid=488145
>