全局定义和初始化用户表单

Question

我在模块的头部有以下代码（因此没有放在任何子模块中）：

Public frmG As UserForm
Public frmW As UserForm

此外，当工作簿打开时，它会执行以下操作：

Call SetVariables

SetVariables子包含以下内容：

Sub SetVariables()

  Set frmG = frmAddChild
  Set frmW = frmChangeChild

End sub

由于某种原因，它会初始化frmG，这个工作方式与我想的完全一样，但是当程序进入set frmW = frmChangeChild时，我收到以下错误：

Object variable or With block variable not set

我该如何解决这个问题？

修改

当我输入frmAddChild.show时，它的效果非常好。当我输入frmChangeChild.show时，我得到相同的对象/有块错误。

编辑2：

当程序运行代码Set frmG = frmAddChild和Set frmG = frmChangeChild时，它会尝试运行userform_initialize subs。

如何确保程序无法运行？