Hi

I'd like to develop the following macro to do certain things in addition.

1    After two seconds, to move the cursor across to the last cell
     in the line chosen (thereby deselecting the first cell)

The macro as it stands is as follows (thanks to Helmut)
Sub RandomPick()
'
' RandomPick Macro
' Macro créée le 18/06/2005 par Dave Neve
'
Dim i As Long
Dim j As Long
i = Selection.Tables(1).Rows.Count
Randomize
j = Int((i * Rnd) + 1)
Selection.Tables(1).Cell(j, 1).Select

End Sub

As always, I'd be grateful if sm can give me a line or two of code.

Dave Neve