调用函数中的下标超出范围

Question

我正在尝试根据工作表中的哪些信息来填充 ComboBox。此代码在模块的多个区域中重复使用，因此为了简单起见，我将其写在调用函数中。不幸的是，我在 If Worksheets("SheetName").Range("EG4") = "Current rate" Then 行收到“下标超出范围”错误。我正在使用字符串SheetName 来识别正确的工作表，并且它正确地捕获了名称。

感谢任何关于为什么会发生此错误的建议。以下是我的代码的副本。

Sub FillComboBox(X As Integer)
Dim Combobox As String
Dim SheetName As String

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
End With

Combobox = "ComboBox" & CStr(X)
SheetName = "Scenario" & CStr(X)

    If Worksheets("SheetName").Range("EG4") = "Current rate" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 0
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Current rate minus 1%" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 1
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Current rate minus 2%" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 2
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Primary rate" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 0
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Secondary rate" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 1
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Alternate rate" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 2
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Sun Term - NA" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 0
        End With
    ElseIf Worksheets("SheetName").Range("EG4") = "Not applicable" Then
        With ScenarioImport.Controls(Combobox)
        .ListIndex = 0
        End With
    End If

End Sub

Answer 1

我找到了答案。我必须删除 "SheetName" 周围的引号，以便正确读取字符串并调用所需的工作表。找出一个简单但令人沮丧的错误！