F2+Enter without sendkeys method

Greetings,
1- Open enclosed file.
2- Run Macro1.

Sub Macro1()
Dim i As Range
For Each i In Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row)
    i.Select
    Application.SendKeys "{F2}"
    Application.SendKeys "{ENTER}"
    DoEvents
Next
End Sub

3- See that F2+Enter macro works perfectly.

Question: I dont want to use F2+Enter macro for some reasons... Any advice without using F2+Enter macro will be appreciated...
I dont want to use sendkeys method...