I assume you have a userform with a listbox control?

then in then simply add this code

Private Sub UserForm_Initialize()
For Each cell In Range("Aa:A12358")
listbox1.AddItem cell.Value & "," & cell.Offset(, 1).Value
Next
End Sub





"bjorn" wrote:


I am quite new... I didn't quite understand this.

How am I to create the sum? Using for each cell in A = (a1, b12358)...

or initialise?

Is it possible to help me abit more please?


--
bjorn
------------------------------------------------------------------------
bjorn's Profile: http://www.thecodecage.com/forumz/member.php?userid=897
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=137426