Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　参照可能なライブラリを解除する
'
'  Copyright(C) 2000 Sunago
'

Option Explicit

Sub Macro1()
Dim myLib

    With Application.VBE.ActiveVBProject
        For Each myLib In .References
            '該当するプロジェクト名のみ解除する
            Select Case UCase$(myLib.Name)
                Case "ATPUSRC1.XLS", "SHDOCVW"
                    .References.Remove myLib
            End Select
        Next
    '/* 参照可能なライブラリを表示する */
Dim wkString As String
Dim a
        For Each a In .References
            wkString = wkString & vbLf & _
                    IIf(a.Description <> "", a.Description, a.Name)
        Next
        MsgBox wkString, vbOKOnly, "参照可能なﾗｲﾌﾞﾗﾘﾌｧｲﾙ"
    End With

End Sub

Sub Macro1_Pre()
Dim strfile As String

    With Application.VBE.ActiveVBProject
        On Error Resume Next
    '/* 絶対パスでファイル名で指定する場合 */
    '分析ツール(ATPVBAEN.XLA)を設定する
        strfile = Application.LibraryPath & _
                    "\Analysis\ATPVBAEN.XLA"
        .References.addfromfile strfile
    '/* ファイル名のみで指定する場合 */
    'Microsoft Internet Controlsを参照設定する
        .References.addfromfile "shdocvw.dll"
        
        On Error GoTo 0
    '/* 参照可能なライブラリを表示する */
Dim wkString As String
Dim a
        For Each a In .References
            wkString = wkString & vbLf & _
                    IIf(a.Description <> "", a.Description, a.Name)
        Next
        MsgBox wkString, vbOKOnly, "参照可能なﾗｲﾌﾞﾗﾘﾌｧｲﾙ"
    End With
End Sub