使用组合框中的值作为自动筛选条件链接到工作表上的宏按钮作为触发器

Question

我正在尝试从组合框列表（Combobox2）填充单元格值，并将该单元格值用作自动筛选器条件。我尝试过使用“Activesheet.range（”h1“）= Me.Combobox2.value”但是我得到了一个对象需要的错误。

这个想法是让用户从组合框列表中选择一个项目，然后单击工作表中的宏按钮根据他们的选择进行过滤。我错过了什么吗？

提前致谢。

Sub ActivateEP()

Worksheets("WMOR_Bundle").Activate
ActiveSheet.Range("H1") = Me.ComboBox1.Value

ActiveSheet.Range("A:P").AutoFilter Field:=16, Criteria1:=ActiveSheet.Range("H1")
ActiveSheet.Range("a1").Select

End Sub