哈哈，疯了

黑晶

你是否应该这样做：   
          Dim   myExcel   As   New   Excel.Application()         
          Dim   WithEvents   MyBook   As   Excel.Workbook   
  .......   
        Private   Sub   MyBook_SheetSelectionChange(ByVal   Sh   As   Object,   ByVal   Target   As   Excel.Range)   Handles   MyBook.SheetSelectionChange   
                  MsgBox("TMD!hai   bu   xing???!!!")   
          End   Sub


试过了，不行。我还试过：   
  Dim   myExcel   as   New   Excel.Application()   
  Dim   WithEvents   mySheet   as   Excel.WorkSheet   
  ....   
  mySheet=myExcel.ActiveCell.WorkSheet   
  ....   
  Private   Sub   mySheet_SelectionChange(ByVal   Target   as   Excel.Range)   Handles   MySheet.SheetSelectionChange   
        MsgBox("Niang   xi   pi!!!")   
  End   Sub

**************************************************************************************************************************************************
MsgBox("TMD!hai   bu   xing???!!!")   
MsgBox("Niang   xi   pi!!!")

千夜不眠

End   Sub