On 9 Lug, 19:33, jk wrote:
Any resolution to this issue? I am having the same problem. *thanks



"ojv" wrote:
I get a runtime error in Excel using the following method:

Sub AddEvents()
Dim vbc As VBComponent, pos As Long, body as String

* * For Each vbc In ActiveWorkbook.VBProject.VBComponents
* * * * If vbc.name = Worksheets(1).codeName Then
* * * * * * pos = vbc.CodeModule.CreateEventProc("Change", "Worksheet")
* * * * * * body = wsEvent
* * * * * * vbc.CodeModule.InsertLines pos, body
* * * * * * Exit For
* * * * End If
* * Next
End Sub

What am i doing wrong?
Any help appreciated
ojv- Nascondi testo citato

- Mostra testo citato -

Hi jk.
I believe that my post of 5 July is valid, however
for further informations, see:
http://www.cpearson.com/excel/vbe.aspx
Regards
Eliano