Enter Key

[wbromberek]

Need a code to run
Private Sub Worksheet_Change
when I hit the enter key.
Any ideas?
Thanks,
Bill

 

[SIXTH SENSE]

Hi!
try this one!

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Declare</SPAN> <SPAN style="color:#00007F">Function</SPAN> GetAsyncKeyState <SPAN style="color:#00007F">Lib</SPAN> "user32" (<SPAN style="color:#00007F">ByVal</SPAN> vKey <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
<SPAN style="color:#00007F">Function</SPAN> EnterKey() <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>
<SPAN style="color:#00007F">Const</SPAN> VK_RETURN = &HD
<SPAN style="color:#00007F">If</SPAN> GetAsyncKeyState(VK_RETURN) <SPAN style="color:#00007F">Then</SPAN>
     EnterKey = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN>
</FONT>