エクセルVBAの参照設定を動的に変更する方法

‘ 参照設定追加
Sub AddReferences()
On Error Resume Next
    Dim Ref
    With ActiveWorkbook.VBProject
                Call .References.AddFromFile("C:\work\common1.xlam")
                Call .References.AddFromFile("C:\work\common2.xlam")
    End With
End Sub

‘ 参照設定削除
Sub RemoveReferences()
On Error Resume Next
    Dim Ref
    With ActiveWorkbook.VBProject
        For Each Ref In ActiveWorkbook.VBProject.References
	‘ common1.xlamを参照していたら削除（チェックを外す）
            If ((InStr(Ref.FullPath, "common1.xlam") > 0 )) Then
                Call .References.Remove(Ref)
                GoTo C_FOR
            End If
	‘ common2.xlamを参照していたら削除（チェックを外す）
            If ((InStr(Ref.FullPath, "common2.xlam") > 0 )) Then
                Call .References.Remove(Ref)
                GoTo C_FOR
            End If
C_FOR:
        Next Ref
    End With
End Sub

ASUS ノートブック N552VX ウォームグレー ( WIN10 64Bit / インテル Core i7-6700HQ / 15.6インチ / 16G / SSD 256G ) N552VX-FI135T

ASUS X751LDV-T4371H Windows8.1 64Bit Core i7-5500U 8GB 1TB DVDスーパーマルチ 無線LAN IEEE802.11b/g/n NVIDIA GeForce 820Mグラフィックス webカメラ SDカードリーダー USB3.0 HDMI 17.3型1920x1080FullHD液晶搭載 ハイスペックノートパソコン