方法'Add'作用于对象‘_VBCompnonts'时失败

[lswandym_888]

在工作薄中使用了一个进度条提示计算进度，结果就这样，进度条也是使用的高人的示例，在他的附件中正常，移植到我的工作薄中就出了这个问题。百度了一番，有人说要改一个常量，我不知道如何弄，请高手们看看，十分感谢。附件如下：
https://pan.baidu.com/s/1slWNuwt

[舉杯邀明月]

'创建进度条对象
Private Sub CreateProgressBar()
   Const vbext_ct_MSForm As Long = 3      ' 增加这句 ！！！
   Dim UsForm  As Object

   If InStr(1, Application.Name, "Word") > 0 Then
      Set objApp = ThisDocument
   ElseIf InStr(1, Application.Name, "Excel") > 0 Then
      Set objApp = ThisWorkbook
   End If
   ' 其它代码 略…………

End Sub

[lswandym_888]

十分感谢Chen8013大神。