GBKEE

¦^´_ 1# primary8
ThisWorkbook ªºµ{§Ç

1. Option Explicit
   
2. Dim ThisSh As New Class1
   
3. Private Sub Workbook_Open()
   
4.     Set ThisSh.Sh = Sheet1
   
5. End Sub

½Æ»s¥N½X

ª«¥ó¼Ò²Õ Class1 ªºµ{¦¡½X

1. Public WithEvents Sh As Worksheet
   
2. Private Sub Sh_SelectionChange(ByVal Target As Range)
   
3.     MsgBox Sh.Name
   
4. End Sub

½Æ»s¥N½X

°õ¦æ¤@¦¸ Workbook_Open µ{§Ç«á¦bSheet1¸Ì²¾°ÊÀx¦s®æ¬Ý¬Ý