On Jun 13, 8:21 am, "Bernie Deitrick" <deitbe @ consumer dot org
wrote:
js,

Try

If blkProc Then Exit Sub
If Len(Me.textbox1.Value) = 10 Then
ActiveCell.Value = Me.textbox1.Value
blkProc = True
Me.textbox1.Value = ""
blkProc = False
ActiveCell.Offset(1, 0).Activate
End If

HTH,
Bernie
MS Excel MVP

wrote in message

oups.com...





Below is a code for a text box in a userform that accepts one
character and then goes to the next cell. How do i modify it to accept
ten characters and then move to the next cell.

Thanks

Private Sub TextBox1_Change()

If blkProc Then Exit Sub
ActiveCell.Value = Me.TextBox1.Value
blkProc = True
Me.TextBox1.Value = ""
blkProc = False

ActiveCell.Offset(1, 0).Activate

End Sub- Hide quoted text -

- Show quoted text -

Thanks Bernie