Hi,

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Option Explicit
Dim RNG_B As Range
Dim RNG_C As Range
Dim CL As Range

Private Sub UserForm_Initialize()

Set RNG_B = Range("Sheet1!B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For Each CL In RNG_B
ListBox1.AddItem CL
Next

End Sub

Private Sub ListBox1_Click()

Set RNG_C = RNG_B.Offset(0, 1)
With ListBox1
If .ListIndex -1 Then
RNG_C.ClearContents
RNG_C(.ListIndex + 1, 1).Value = .List(.ListIndex)
End If
End With
e:

End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--