Dim rng as Range
set rng = Cells.find(What:="Open", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
if not rng is nothing then
do
rng.Value = rng.offset(0,1),Value
set rng = cells.FindNext(rng)
Loop Until rng is nothing

End if

--
Regards,
Tom Ogilvy



"toesparkle" wrote
in message ...

Hi all!
I need to stop a Do Loop function, but can't figure out how. I am
finding the word "Open", replacing it with text from another cell, and
looping until all the "Open"s are gone.

This is probably an easy fix, but it's kicking my butt.
I'd appreciate any help you can give me.
Thanks!
Samantha

Do
Cells.find(What:="Open", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Offset(0, 1).Select
Application.CutCopyMode = False
Selection.Copy
Selection.Offset(0, -1).Select
ActiveSheet.Paste
On Error Resume Next
Loop Until ?


--
toesparkle
------------------------------------------------------------------------
toesparkle's Profile:
http://www.excelforum.com/member.php...o&userid=22454
View this thread: http://www.excelforum.com/showthread...hreadid=376100