带有 Select Case 的 Excel VBA 运行时错误 13

我有一些嵌套Select Case代码，当我选择主案例 2、3、4 或 5 时（我得到每个案例的嵌套案例选项），我有一些嵌套代码，但是当我选择时，Case 1我得到一个运行时错误 13，它忽略了定义选项的输入框。

我已经看了一百遍，但看不到我的错误在哪里，某处必须有一个，想知道是否有人可以看到这里缺少什么或错误，这是我的代码中引发错误的部分。

Variants:

Sizes = Application.InputBox("Which EMS 066 option do you wish to load & check against" & vbLf & vbLf & vbLf & "1. S690 All variants & sizes" & vbLf & vbLf & "2. S890 All variants & sizes" & vbLf & vbLf & "3. S960 All variants & sizes" & vbLf & vbLf & "4. S650MC-D All sizes" & vbLf & vbLf & "5. S700MC-D All sizes" & vbLf & vbLf & vbLf, "Select which option to load")

If Sizes = False Then
    Exit Sub
Else
    Select Case Sizes
        Case 1
            ws.Activate
            Ans = MsgBox("You have selected S690 variant?", vbYesNo) ' allows a loop if you have made a mistake and will take you back to the selection option
            If Ans = vbNo Then GoTo Variants Else
                Option1 = Application.InputBox("Please define the specific type and size of S690 you require to check against" & vbLf & vbLf & "1. S690Q 3mm to 50mm" & vbLf & "2. S690Q 50 to 100mm" & vbLf & "3. S690Q100 to 150mm" & vbLf & vbLf & "4. S690QL 3 to 50mm" & vbLf & vbLf & "5. S690QL 50 to 100mm" & vbLf & vbLf & "6. S690QL 100 to 150mm" & vbLf & vbLf & "7. S690QL1 3 to 50mm" & vbLf & vbLf & "8. S690QL1 50 to 100mm" & vbLf & vbLf & "9. S690QL1 100 to 150mm" & vbLf & vbLf, "Plese select the Option from the Drawing")

                Select Case Option1
                    Case 1
                        Ans = MsgBox("You have selected S690Q between 3 and 50mm is this correct?", vbYesNo) ' allows a loop if you have made a mistake and will take you back to the selection option
                        If Ans = vbNo Then GoTo Variants Else:
                            rng2.Copy: rng1.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
                              :=False, Transpose:=False
                            rng4.Copy: rng3.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
                              :=False, Transpose:=False
                            rng6.Copy: rng5.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                              :=False, Transpose:=False

这让我一整天都发疯了，我一生都看不到哪里出了问题，我什至从第二个主要内容中复制了代码Case Select并尝试了未经编辑和编辑的代码，但我得到了同样的错误。