Something like this perhaps. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TheCol As Long
If Target.Count 1 Then Exit Sub
'Assuming the DV cell is A1
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Target.Value
Case Item1: TheCol = 3
Case Item2: TheCol = 6
Case Item3: TheCol = 7
'And so forth
End Select
Cells(Target.Row, TheCol).Select
End If
End Sub
"kmoss" wrote in message
...
I would like the cursur to jump to a column in the current row depending on
what was selected from the drop down box. This is for data entries.