Moving cursor

[shumba]

Good Afternoon,

The procedure below moves the cursor from its current location to the first cell with a value in the same row.

Sub Move_cursor()
    Selection.End(xlToLeft).Select
End Sub

I would like to move the cursor all the way to column A.

Please will someone show me the code to do this.

Thank you.

Rob.

 

[GlennUK]

One way is:

Sub Move_cursor()
    Range("A" & ActiveCell.Row).Select
End Sub

 

[shumba]

Thanks, Glenn