ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   XL2003 - ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeM (https://www.excelbanter.com/excel-programming/422336-re-xl2003-thisworkbook-vbproject-vbcomponents-thisworkbook-codem.html)

JLGWhiz

XL2003 - ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeM
 
Could be a .dll reference problem. when I ran CodeModule in the VBA help
search box it gave me no results. However, when I ran it in the Object
Browser, it shows up under VBComponents with Parent VBIDE. I am running
xl2003.

"PCLIVE" wrote:

I have the following code that removes some lines from "ThisWorkbook". This
seems to work fine from Excel 2000 and Excel 2002. However, it does not
seem to work from Excel 2003. Is there any reason why this wouldn't work on
Excell 2003 or later?

Set CodeMod =
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule
With CodeMod
StartLine = .ProcStartLine("Workbook_Open", vbext_pk_Proc)
ProcLen = .ProcCountLines("Workbook_Open", vbext_pk_Proc)
.DeleteLines StartLine, ProcLen
End With


Thanks in advance,
Paul







All times are GMT +1. The time now is 03:34 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com