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" wrote in
message ...

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