Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　分析ツールの「データ分析」ダイアログを使って詳細画面を表示する
'
'  Copyright(C) 2000 Sunago
'
Option Explicit

Sub Macro1()
Dim blnResult

    '分析ツールをワークシートで使うおまじない
    '（内容はアドインの組み込みと同じ）
    blnResult = Application.RegisterXLL(Application.LibraryPath & _
                                        "\Analysis\ANALYS32.XLL")
    Application.Run "fDialog"
End Sub