Sub StartOnKey()
'Run this sub to make the ENTER-key run "SubMyCode"
Application.OnKey "{ENTER}", "SubMyCode"
End Sub
Sub SubMyCode()
If ActiveCell.Column = 3 Then
'your code here
End If
End Sub
Sub StopOnKey()
'Run this sub to release the onkey event
Application.OnKey "{ENTER}"
End Sub