Private Sub ComboBox1_Enter() Dim rang As Range Dim Celija Sheets("Sheet2").Select ActiveSheet.Range("A3").Select ActiveSheet.Range(Selection, Selection.End(xlDown)).Select Set rang = Selection For Each Celija In rang.Cells ComboBox1.AddItem Celija Next Celija End Sub