how do i tell it to stop when it has found a cell with a specific
value?

i.e.

For Each cell In rng

Do While ActiveCell.Row 3
ActiveCell.Offset(-1, 0).Select
Loop

If cell.Value = UCase(cell.Value) Then
cell.Select
MsgBox "found"
Exit Sub
End If

God bless
jsd219

PS. i really am trying. :-)


Tom Ogilvy wrote:
do while activecell.row 3
activecell.offset(-1,0).Select
Loop

--
Regards,
Tom Ogilvy


"jsd219" wrote in message
ps.com...
Does anyone know how to set a range that will travel up the column from
the active cell until it hits a cell you specify?

God bless
jsd219