A
Al
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("All").CodeName).CodeModule
With VBCodeMod
StartLine = .CreateEventProc("SelectionChange", "Worksheet") + 1
.InsertLines StartLine, _
"lastAddress = Target.Address"
End With
End Sub
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("All").CodeName).CodeModule
With VBCodeMod
StartLine = .CreateEventProc("SelectionChange", "Worksheet") + 1
.InsertLines StartLine, _
"lastAddress = Target.Address"
End With
End Sub