从范围对象设置ws引用-运行时错误9？

Question

我有一些代码可以很好地运行，但是当我将代码复制到另一个我想做同样事情的wb时，我在一些代码中得到了 Runtime Error 9 VBA试图在RngS中创建对工作表的引用时，会创建对提示的范围对象的引用（见下文）。

'Read new range object in input file

Set RngS = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
Set SourceWs = Worksheets(RngS.Parent.Name)
Set SourceWb = Workbooks(RngS.Parent.Parent.Name)

然后，我回到原来创建代码的wb处，并且宏在同一行停了相同的错误-发生了什么事？

在此处查看完整的代码：https://justpaste.it/5zbx4

编辑：我什么都不懂，现在，当我尝试创建对AppendWs的工作表引用时，在代码中出现了同样的错误。我只切换了为SourceWs / SourceWb创建ws和wb参考的顺序-因为我之前有它，并且在Ws停了下来（确实是Wb），但是想再次确认。.

编辑：关闭.xlsm，它确实再次运行到SourceWs参考，但是再次盯着宏，它停止在AppendWs-line .. wtf？