Hello!

I have an issue when I try to loop through multiple items in a list box (which has 4 columns). I had modified a bit of code that I found on onlinepclearning.com
which goes like this:

Set MYRange = Sheet3.Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1)
For a = 0 To Me.Reg3.ListCount - 1
If Me.Reg3.Selected(a) Then
MYRange = Me.Reg3.List(a)
MYRange.Offset(0, 1) = Me.Reg3.List(a, 1)
MYRange.Offset(0, 2) = Me.Reg3.List(a, 2)
MYRange.Offset(0, 3) = Me.Reg3.List(a, 3)
MYRange.Offset(0, 4) = Me.Reg3.List(a, 4)
Set MYRange = MYRange.Offset(0, 1)
End If
Next a

My problem is that this code does not somehow pick up the first column of the mutiple column list box and shows me an error messgae on "MYRange.Offset(0, 4) = Me.Reg3.List(a, 4)" which says --"Me.Reg3.List(a, 4)= Could not get Listproperty.Invalid argument.

I am unable to attach my file here hence the detailed explanation.Do let me know if you should require anything else to help me out.

Br,
Deepthi