You could use LCASE or the Like operator.

Nick


"Nexan" <Nexan@discussions.microsoft.com> wrote in message
news:E05C0132-4C6B-4400-99FB-0D87FB5EFFDC@microsoft.com...
> Okay, I've hit a snag with this. I just realized that this script only
> seems
> to be finding cells containing nothing but letters in all caps. Is there a
> way to find cells containing some words in all caps and some in
> upper/lowercase?
>
> "Jason Morin" wrote:
>
>> Select your data and run this macro:
>>
>> Sub OnlyUpper()
>> Dim cell As Range
>> For Each cell In Selection
>> If cell.Value = UCase(cell.Value) Then
>> cell.Font.ColorIndex = 3 'make font color = red
>> End If
>> Next
>> End Sub
>>
>> ---
>> HTH
>> Jason
>> Atlanta, GA
>>
>>
>> "Nexan" wrote:
>>
>> > As part of a macro, I'd like to be able to identify and re-format only
>> > cells
>> > containing words in all caps. Is that doable?
>> >
>> > Thanks!