Worksheet in VB COMPONENT

[Guest]

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").CodeModule
StartLine = .CreateEventProc("Activate", "Worksheet") + 1
.InsertLines StartLine, _
"If lastAddress <> """" Then Range(lastAddress).Select"
End With

End Sub

 

[Bob Phillips]

Do you mean

With
ActiveWorkbook.VBProject.VBComponents(Worksheets("10").CodeName).CodeModule

 

[Tom Ogilvy]

Sub addactivate()
Dim StartLine As Long
Dim s As String
s = ActiveworkBook.Worksheets("10").Codename
With ActiveWorkbook.VBProject.VBComponents(s).CodeModule
StartLine = .CreateEventProc("Activate", "Worksheet") + 1
.InsertLines StartLine, _
"If lastAddress <> """" Then Range(lastAddress).Select"
End With

End Sub

 

[Guest]

Thanks Bob and Tom!!

Do you mean

With
ActiveWorkbook.VBProject.VBComponents(Worksheets("10").CodeName).CodeModule