将combobox下拉菜单设置为dynamic范围的值

上次我问到这个问题，我得到了一个解决scheme，但是我不能再运行代码。

在我尝试之前：

根据更改Combobox值设置单元格查找值

Sub DropDown7_Change() Application.ScreenUpdating = False Dim vlook_val As String Dim v_table_array As Range 'Dim totals_sheet As Worksheet Dim col_index As Integer Dim col_index_1 As Integer Dim result As Variant Dim result_1 As Variant Dim list_val As Long list_val = Worksheets("front page").Shapes("Drop Down 7").ControlFormat.Value Sheets("front page").Range("K9") = Worksheets("pipe_totals").Cells((list_val + 1), 1) Call front_page_vlookup(vlook_val, v_table_array, col_index, col_index_1, result, result_1) Application.ScreenUpdating = True End Sub 

我试图设置一个combobox下拉列表作为另一个表中将有不同长度的行。 我正在使用的combobox叫做Drop Down 7 。 我将表设置为表格中的列a Sheets("pipe_totals")并在下拉列表中select的值填充单元格K9，然后将其用作其他操作的vlookup值。

任何想法如何我能得到这个工作？

谢谢