VBA下拉菜单到其他工作表：无效使用我的关键字

Question

我有一个VBA代码，我需要使用组合框来链接到其他工作表。该值位于菜单列表中。但是，当我执行此代码时，我收到错误＆＃34;无效使用我的关键字＆＃34;。

Sub Macro1()
Sheets(Me.navmenu.Value).Select  End Sub

不确定我在这个程序中做错了什么。有修复吗？

感谢任何帮助。：）

Answer 1

如果您的组合框是“表单”类型，那么您可以在常规模块中使用此代码：

Sub Navigate()

    'Application.Caller returns the name of the shape which called the Sub
    With ActiveSheet.Shapes(Application.Caller).ControlFormat
        ThisWorkbook.Sheets(.List(.ListIndex)).Select
    End With

End Sub