Private Sub UserForm_Initialize() Dim cella As Range, ur As Long, j As Long ur = Worksheets("elenco").Range("C" & Rows.Count).End(xlUp).Row With Worksheets("elenco") For j = 2 To ur ComboBox1.AddItem .Cells(j, 3) '& " " & .cells(j,4) & " " & .cells(j, 5) Next j End With End Sub