Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet in VB COMPONENT
I'm using the following code to add an event procedure to a worksheets code.
Rather than having to refer to the worksheet as "Sheet1", i would like to refer to the worksheet as its actual name, which is 10. How could I do so? Thanks in advance. See the following code where "SHEET1" is used. Sub addactivate() Dim StartLine As Long With ActiveWorkbook.VBProject.VBComponents("SHEET1").Co deModule StartLine = .CreateEventProc("Activate", "Worksheet") + 1 .InsertLines StartLine, _ "If lastAddress < """" Then Range(lastAddress).Select" End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet in VB COMPONENT
Do you mean
With ActiveWorkbook.VBProject.VBComponents(Worksheets(" 10").CodeName).CodeModule -- HTH Bob Phillips "Al" wrote in message ... I'm using the following code to add an event procedure to a worksheets code. Rather than having to refer to the worksheet as "Sheet1", i would like to refer to the worksheet as its actual name, which is 10. How could I do so? Thanks in advance. See the following code where "SHEET1" is used. Sub addactivate() Dim StartLine As Long With ActiveWorkbook.VBProject.VBComponents("SHEET1").Co deModule StartLine = .CreateEventProc("Activate", "Worksheet") + 1 .InsertLines StartLine, _ "If lastAddress < """" Then Range(lastAddress).Select" End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet in VB COMPONENT
Sub addactivate()
Dim StartLine As Long Dim s As String s = ActiveworkBook.Worksheets("10").Codename With ActiveWorkbook.VBProject.VBComponents(s).CodeModul e StartLine = .CreateEventProc("Activate", "Worksheet") + 1 .InsertLines StartLine, _ "If lastAddress < """" Then Range(lastAddress).Select" End With End Sub -- Regrds, Tom Ogilvy "Al" wrote in message ... I'm using the following code to add an event procedure to a worksheets code. Rather than having to refer to the worksheet as "Sheet1", i would like to refer to the worksheet as its actual name, which is 10. How could I do so? Thanks in advance. See the following code where "SHEET1" is used. Sub addactivate() Dim StartLine As Long With ActiveWorkbook.VBProject.VBComponents("SHEET1").Co deModule StartLine = .CreateEventProc("Activate", "Worksheet") + 1 .InsertLines StartLine, _ "If lastAddress < """" Then Range(lastAddress).Select" End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet in VB COMPONENT
Thanks Bob and Tom!!
"Bob Phillips" wrote: Do you mean With ActiveWorkbook.VBProject.VBComponents(Worksheets(" 10").CodeName).CodeModule -- HTH Bob Phillips "Al" wrote in message ... I'm using the following code to add an event procedure to a worksheets code. Rather than having to refer to the worksheet as "Sheet1", i would like to refer to the worksheet as its actual name, which is 10. How could I do so? Thanks in advance. See the following code where "SHEET1" is used. Sub addactivate() Dim StartLine As Long With ActiveWorkbook.VBProject.VBComponents("SHEET1").Co deModule StartLine = .CreateEventProc("Activate", "Worksheet") + 1 .InsertLines StartLine, _ "If lastAddress < """" Then Range(lastAddress).Select" End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SUMPRODUCT with an OR component | Excel Discussion (Misc queries) | |||
Office web component . | Excel Worksheet Functions | |||
Web Excel Component Bug | Excel Discussion (Misc queries) | |||
Changing VB Component Names to match Worksheet names using VBE | Excel Programming | |||
Chart component | Excel Programming |