Copy contents of cell and paste in text box

Ricardo9211 try ths code with a list box

Option explicit
Private Sub UserForm_Initialize()
Dim a%
For a = 1 to Range ("IV1",range("IV1")).end(xltoleft).column
with worksheets("Sheet2").cells(1,a)
if not cells(1,a) .value= "" then
listbox1.additem (cells(1,a).value)
end if
end with
next a
end sub