Something like this should do the trick:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 21 Then
Cells(1, ActiveCell.Column + 1).Select
End If
End Sub

If you attempt to go past row 20 (i.e. row 21) the active cell starts at the
top of the next column.

"Arvin Wilson" wrote:

I created a three colum form for entering bar code data. How can I
automatically jump to the top of the next column when the last entry is made
in the previous column?