VBA Excel - Replace Enter key with Alt Enter

Question

I am trying to replace Enter key with Alt+Enter so that I can write multiline in cells with ease.

I have seen that there is a function Application.OnKey and Application.SendKeys and I wanted to use those something like this:

Application.OnKey "~" , Application.SendKeys("%~") 

But where do I place those? Or any other ideas?

Answer 1

I created Button1 and assigned the Enter key to send Alt-Enter in its click mechanism, as you suggested in the question:

Sub Button1_onClick()

    Call Application.OnKey("~", "SendAltEnter")

End Sub

Sub SendAltEnter()

    Application.SendKeys ("%~")
    
End Sub

This does indeed re-route the Enter key, however it appears that Alt-Enter calls the procedure for the "Enter" part of "Alt-Enter" again, resulting in an infinite loop the first time you push enter after clicking the button, and you must restart your Excel application to clean it up.

I also tried it with another key near Enter, # (at least on German keyboards), which could be used instead of Alt-Enter:

Sub Button1_onClick()

    Call Application.OnKey("#", "SendAltEnter")

End Sub

Sub SendAltEnter()

    Application.SendKeys ("%~")
    
End Sub