Enter this small macro:

Sub case_check()
'gsnu 10_28_2006
Dim s As String, r As Range
For Each r In Selection
If r.Value = UCase(r.Value) Then
r.Offset(0, 1).Value = "x"
End If
Next
End Sub

Select the cells you want to check and run it. It uses the next column over
to do the marking, You can change the OFFSET() to get to any desired column.
--
Gary's Student


"jsd219" wrote:

Does anyone know how to search for cells based on a text format.

below is an example:

Cell 1 - JACK JUMPED OVER
Cell 2 - -JILL FELL DOWN

i am trying to write a script that will search a specific column, once
it finds these cells all cells with all its contents in all CAPS, it
places an "x" in another specified column.

Any help would be great appreciated. :-)

PS. i know i can do a conditional find but i need to make it into a
script.

God bless
jsd219