Option Explicit
 
Dim WithEvents m_w As Workbook
 
 
Private Sub Class_Initialize()
 
  Set m_w = ActiveWorkbook
 
End Sub
 
Private Sub m_w_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
  MsgBox "Changed"
 
End Sub

Option Explicit
 
Dim o As Klasse1
 
Private Sub auto_open()
 
    Set o = New Klasse1
 
End Sub

Gruß
Dirk

--
?Get it right the first time