Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　クラスモジュールを利用する (3) 外部ブックのクラスモジュールを利用
'  <標準モジュール：Module1>
'
'  Copyright(C) 2000 Sunago
'
Option Explicit

'/* 外部ブックのクラスモジュールを呼び出す */

Sub Macro1()
    Wareki1.Message
End Sub


Attribute VB_Name = "Module2"
'■　マクロ５００連発＜第２段＞
'
'　クラスモジュールを利用する (3) 外部ブックのクラスモジュールを利用
'  <標準モジュール：Module2>
'  Copyright(C) 2000 Sunago
'
'  ※このモジュールは説明のために作成したもので動作しません。

Option Explicit

'/* 外部ブックのクラスモジュールを呼び出す */

Public Wareki2 As clsWareki

Sub Macro2()
    Set Wareki2 = New clsWareki      ''インスタンスの作成
    Wareki2.Message
    Set Wareki2 = Nothing            ''インスタンスの開放
End Sub


Attribute VB_Name = "clsWareki"
'■　マクロ５００連発＜第２段＞
'
'　クラスモジュールを利用する (3) 外部ブックのクラスモジュールを利用
'  <クラスモジュール：clsWareki>
'
'  Copyright(C) 2000 Sunago
'
Option Explicit

Public Sub Message()
    MsgBox "clsWarekiクラスのMessageメソッドです", , ThisWorkbook.Name
End Sub