Enterキーでマクロ実行

'　シート上で、エンターキーを押すと、マクロ実行する。

Sub Enter()
' シート上でenterを押した時のマクロ処理
With Application '　enterキー（10ｷｰのENTER）でマクロが走る。
.OnKey "~", "エンタ"
.OnKey "{ENTER}", "エンタ"
.OnKey "{TAB}", "エンタ"
End With
End Sub
'　↑VBE：シートをダブルクリック〜thisworkbook activate に　module1.enter を設定
'　↑キーへのマクロ設定を行う。

Sub ENTER_BAS()
With Application '　enterキー（10ｷｰのENTER）を通常に戻す.
.OnKey "~"
.OnKey "{ENTER}"
.OnKey "{TAB}"
End With
End Sub

'　↑VBE：シートをダブルクリック〜thisworkbook deactivate に　module1.ente_bas を設定
'　↑キーへのマクロ設定を解除する。

Sub エンタ()
'　Enterマクロが走ったときに実行されるマクロ
'　いろいろなシートでつかえるよに、シート名を条件に入れている。
Dim i As Long

' menuシートの場合
If ActiveSheet.Name = "menu" And Range("m11").Value = "KAISHI" Then
Range("m11").Value = ""
Module4.バーコードリーダー用シートへ
end　if

end sub