如何确保安装并加载VBA加载项文件

Sub InstallCheckAddIn()
 '目的：如果当前没有安装则从加载项文件夹中装载加载项
 Dim myAddin As AddIn
 Dim TestAddin As Variant
 Dim StoreError As Long
 Dim AddInName As String
 Dim AddInExtension As String
 '输入
 AddInName = "MyAwesomeAddin"
 AddInExtension = ".xlam"
 '测试当前是否安装了加载项
 On Error Resume Next
 Set TestAddin = Workbooks(AddIns(AddInName).Name)
 StoreError = Err
 On Error GoTo 0
 '如果没安装加载项, 在加载项文件夹中查找并装载
 If StoreError <> 0 Then
   For Each myAddin In AddIns
     If myAddin.Name = AddInName & AddInExtension Then
       myAddin.Installed = False
       myAddin.Installed = True
       GoTo ExitSub
     End If
   Next
 
   '没有找到要安装的加载项
   MsgBox "没要找到要安装的加载项: " & AddInName
 End If
ExitSub:
End Sub