从excel vba模块动态添加代码到新工作表

Question

有没有办法从excel vba模块动态添加代码到工作表。就像我在创建新工作表时动态地将Private Sub Worksheet_SelectionChange(ByVal Target As Range)事件代码添加到特定工作表一样。