I am using the following code to set certain parameters on my code windows:

Dim cmpComponent As VBIDE.VBComponent
Dim cmpComponents As VBIDE.VBComponents
Dim cmpName As String
Dim xx As Integer
Set cmpComponents = ThisWorkbook.VBProject.VBComponents

For Each cmpComponent In cmpComponents
cmpName = ThisWorkbook.VBProject.VBComponents(cmpComponent.N ame).Name

ThisWorkbook.VBProject.VBComponents(cmpName).CodeM odule.CodePane.Window.Top =
12