Hi there, I have a bit of code to make the ENTER key add a carriage return whilst entering text into cell:
Sub HookEnterKey()
Application.OnKey "{RETURN}", "carriage_return"
Application.OnKey "{ENTER}", "carriage_return"
End Sub
Sub carriage_return()
ActiveCell = ActiveCell &...