Excel 宏，用于将VBA代码从Personal.xlsb自动插入到我的Active工作簿的预定义工作表中

我只是想知道是否有办法从Personal.xlsb运行宏，以便在活动工作簿的Sheet3（堆栈）中插入代码并运行代码

我想在活动工作簿的Sheet3（堆栈）中插入的代码如下：

Const FontSize As Integer = 12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LargeSize = FontSize * 1.2
With Cells.Rows
       .Font.Size = FontSize
       .Interior.Color = xlNone
End With
With Target.EntireRow
        .Font.Size = LargeSize
        .Interior.Color = 49407
End With
End Sub

---

提前感谢您的帮助。

中有一个关于使用VBA删除VBA代码的示例。它可以帮助您设计一些东西来添加代码而不是删除。可以自动插入代码，但是如何模拟/运行工作表事件？哪个

Target

参数要传递给函数？为了向模块写入代码，您需要参考“Microsoft Visual Basic for Applications Extensibility 5.3”。您可以使用

…Module.CreateEventProc

和要插入其中的其余行创建所需的事件。您可以为活动工作表、活动单元格运行一段类似的代码…非常感谢您的回复FaneDuru和Foxfire，但这对我来说似乎并不明显，我在VBA中没有足够的技能来做到这一点，我在Internet上查看了.Module.CreateEventProc，这个功能的使用似乎相当复杂…我检查的两个网站是：不幸的是，我没有设法找到我的问题的解决方案。。。