This is worksheet event and must be put in the sheet module. So, right click
sheet tabview codecopy/paste thismodify to suitSAVE

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row 1 And Target.Column = 3 Then ActiveCell.Offset(1, -3).Select
End Sub

--
Don Guillett
SalesAid Software

"Wibs" wrote in message
...

Hi,

I am entering lots of family history data into a spreadsheet. At the
simplest I have columns (in cells A1 B1 C1) the headings, Surname,
Forename, Year. Right now, I enter in cells A2 B2 and C2 say: Smith
<Tab John <Tab 1555 <Enter, move mouse to the A column in the next
row down). What I want to happen is when I have entered the last data
in a row and pressed <Enter I move automatically to the A-column in
the next row down.

Is this possible?

Regards and a Merry Christmas to all

Wibs


--
Wibs
------------------------------------------------------------------------
Wibs's Profile:
http://www.excelforum.com/member.php...o&userid=28922
View this thread: http://www.excelforum.com/showthread...hreadid=494464