セルチェンジ時

Public WithEvents Memo As Worksheet
Public WithEvents MemoBook As Workbook
Public WithEvents MemoApp As Application
Private Sub Class_Initialize()
    Set Memo = ActiveSheet
    Set MemoBook = ActiveWorkbook
    Set MemoApp = Application
   
End Sub

Private Sub Memo_SelectionChange(ByVal Target As Range)
    'セルチェンジ時処理
End Sub

Private Sub MemoApp_WorkbookActivate(ByVal Wb As Workbook)
    Set MemoBook = ActiveWorkbook
    Set Memo = ActiveSheet
End Sub

Private Sub MemoBook_SheetActivate(ByVal Sh As Object)
    Set Memo = ActiveSheet
End Sub