Hi Dennis.

Sorry aboute my first answer.

Modify below for your purpose.


Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B2" Then
If Abs(Len(Range("b2")) - Range("A1").ID) = 3 Then
Application.EnableEvents = False
Me.Range("c1").Select
Application.EnableEvents = True
End If
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = "B2" Then
Range("A1").ID = Len(Range("b2"))
End If
End Sub


--
Best regards
Joergen Bondesen


"Joergen Bondesen" wrote in message
...
Hi Dennis

Try this, please.

Right click on your sheet tab and place below.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B2" Then
If UCase(Left(Target.Value, 2)) = "JB" Then
Application.EnableEvents = False
Me.Range("c1").Select
Application.EnableEvents = True
End If
End If
End Sub

--
Best regards
Joergen Bondesen


"Dennis" wrote in message
...
Is there a way to set up a particular cell so that, when a specific
number of
characters have been typed by the user, the curser will jump to another
cell?
I'd like to use this feature, if it can be done, in a template.