There was a small typo in rng.offset(0,1).value (had a comma in place of
a period).

this has been lightly tested to demonstrate that find works just FINE

Sub AB()
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


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