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