Change Code using VBA

[mond007]

I am trying to change hundreds of workbooks using VBA. I have a main drivers workbook with the following code.. in a simple file processing loop.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I got this from the following thread. <o></o>
http://www.ozgrid.com/forum/showthread.php?t=13006<o></o>
<o></o>

[/FONT][/COLOR]
[COLOR=black][FONT=Verdana][/FONT][/COLOR] 
[COLOR=black][FONT=Verdana]Workbooks.Open (vFile)                                 
Application.EnableEvents = True   
                
opened_file= ActiveWorkbook.Name<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Workbooks(current_file_name).Activate 'Just in case.
With Application.VBE.ActiveVBProject.VBComponents("Lib01_update_charts").CodeModule
    If .Find("gl_worksheet_name", 1, 1, 80, -1) Then
        
        For lngLine = .ProcStartLine("Activate", vbext_pk_Proc) To .ProcCountLines("Activate", vbext_pk_Proc)
            strCodeLines = .Lines(lngLine, 1)
            If InStr(1, strCodeLines, "gl_worksheet_name", vbTextCompare) > 0 Then
                
                'Perform my Find and Replace. etc etc etc...
                
                Exit For
            End If
        Next
         
    End If
End With[/FONT][/COLOR]
[COLOR=black][FONT=Verdana][/FONT][/COLOR] 
[COLOR=black][FONT=Verdana]

<o></o>
<o></o>
I have tried :
<o>

<o:p> </o:p>Application.VBE.VBProject([COLOR=black][FONT=Verdana]opened_file[/FONT][/COLOR]).VBComponents("Lib01_update_charts").CodeModule

I am getting a error 1004 "Object does not support this property or method. yet when I try and search for a code module in the current VB project it manages to find it.
It seems I need to swtich to the correct VBE Project before trying to find the componant as I can find componants that are in my current project but not in the WorkBook I have opened.
Please forgive me if I am missing something obvious.
Thanks in Advance. </o>