Dim list As String Dim broj As Integer Sheets("Sheet2").Select ActiveSheet.Range("A3").Select ActiveSheet.Range(Selection, Selection.End(xlDown)).Select broj = Selection.Count + 2 list = "sheet2!A3:A" & broj ComboBox1.ListFillRange = list Sheets("Sheet1").Select