Hi. I have this code which works almost fine:
1. New data entry via "TextBox1" to a range named "glist".
2. Sort items A-Z in extended "glist"
3. Populate "ComboBox1"
Error on 2nd and 3rd : Sorting items and populating combobox from one step behind. First data entry isnt sorted until I enter second data.
Thanks in advance.
Private Sub CommandButton1_Click() Dim rng As Range, aCell As Range Set aCell = Worksheets("LISTS").Range("J1") Set rng = Range("glist") ' dynamic defined range, scope:workbook, Column "J" With rng .Offset(rng.Rows.Count, 0).Resize(1, 1).Value = TextBox1.Value .Sort Key1:=aCell, Order1:=xlAscending, Header:=xlNo ComboBox1.RowSource = rng.Address(external:=True) End With End Sub