VBAドロップダウンメニューから他のシートへ：無効なキーワードを使用

Question

他のシートにリンクするためにコンボボックスを使用する必要があるVBAコードがあります。値はメニューリストにあります。しかし私がこのコードを実行すると、 "invalid use me keyword"というエラーが出ます。

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