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