Thanks Jim, but that didn't do it.
The bookmark should be in there.
The code updates the module fine, but then never stops running.





On Nov 21, 11:59 am, "Jim Rech" wrote:
I'd guess that the problem is with this line:

strNewDestination = "Set wks = wkb.worksheets(""Sheet3"") 'BOOKMARK"

The comment at the end of the line keeps putting "BOOKMARK" back in themodule.

--
Jim"Matt" wrote in ooglegroups.com...
| Hey all,
|
| Well it's not Thanksgiving yet...so there's work to be done, ahh ok my
| work.
|
| I have spent the last couple of days trying to figure out why my
| procedure never
| ends, and I still can't seem to figure it out.
| My goal is to use the procedure below toFind/Replacea line of code
| from the CodeModule.
|
| (I've looked at it for a while and it seems simple enough but I've had
| my hands involved
| in it so it's probably missing a key ingredient...like "if false then,
| exit sub, end if").
|
| Here's the code frommodule1--
|
| Sub FindChange()
| Dim I As Long
| Dim myProject As VBProject
| Dim myComponent As VBComponent
| Dim myModule As CodeModule
| Dim StartLine As Long, StartColumn As Long
| Dim EndLine As Long, EndColumn As Long
| Dim strNewDestination As String
| Dim strFind As String
| strFind = "'BOOKMARK"
| strNewDestination = "Set wks = wkb.worksheets(""Sheet3"") 'BOOKMARK"
| Set wkb = ThisWorkbook
| Set myProject = wkb.VBProject
| Set myComponent = myProject.VBComponents("Module2")
| Set myModule = myComponent.CodeModule
| With myModule
| While .Find(strFind, StartLine, StartColumn, EndLine, EndColumn, False,
| False, False)
| .ReplaceLine StartLine, strNewDestination
| StartLine = StartLine + 1
| Wend
| End With
| End Sub
|
| 'Here's the code fromModule2 --
|
| Sub One()
| Set wks = wkb.Worksheets("Sheet1") 'BOOKMARK
| End Sub
|
| My thanks to anyone able digest this mystery and bring forth new truth
| and
| understanding to the VBE, VBA's inner sanctum.
|
| MattS
|