I'd like to add a Procedure to a Worksheet Module via VBA.
The problem is that the module already contains a procedure,
so I need to learn how to add the procedure UNDER the existing procedure.
Attached is the procedure I'd like to add. Thanks in advance.


Sub addselectionchange()
Dim StartLine As Long
Dim VBCodeMod As CodeModule
Dim DEPT3 As String
Dim LINENUM As Integer

Set VBCodeMod =
ThisWorkbook.VBProject.VBComponents(Worksheets("Al l").CodeName).CodeModule

With VBCodeMod

StartLine = .CreateEventProc("SelectionChange", "Worksheet") + 1

.InsertLines StartLine, _
"lastAddress = Target.Address"


End With

End Sub