Make text cursor appear at the start of a cell?

Assign this short macro to a shortcut key:

Sub dural()
Dim L As Long
With ActiveCell
    L = Len(.Value)
    Application.SendKeys "{F2}"
    For LL = 1 To L
        Application.SendKeys "{LEFT}"
    Next LL
    DoEvents
End With
End Sub

Why not use the Home key if you are to use sendkeys?

    Application.SendKeys "{F2}{HOME}"

Hi Andy:

You are correct!
The idea did not occur to me.