Private Sub UserForm_Initialize() scbSelect.Max = Len(txtSelect.Text) - 1 End Sub
Private Sub scbSelect_Change() scbSelect.SetFocus txtSelect.SelStart = scbSelect.Value txtSelect.SelLength = 1 txtSelect.SetFocus End Sub