WithEvents,该怎么处理

WithEvents
WithEvents
请问各位大侠的问题是WithEvents：是否为VB调用Excel事件的关键语句．

''--
Option Explicit
Public WithEvents aaa As Excel.Workbook
Private Sub aaa_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  Target.Font.ColorIndex = 3 ' 设置文字颜色为红色
End Sub



[解决办法]
差不多，注意你先要用类似这样的语句初始化这个变量：
set aaa = Application.ActiveWorkbook