snippets/microsoft/ms-office/excel/macros/EnterAndPressEnter.vba

Sub EnterAndPressEnter()
' Enter all selected cells and press enter
For Each cell In Selection
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
Next cell
End Sub