I now have a populated list box on my form. I now need to take each
value (its the name of a named range) and copy that range to another
sheet...


How do I create the loop ??????

On Error Resume Next
Sheets(Me.DestTextBox.Text).Delete

Sheets.Add
ActiveSheet.Name = Me.DestTextBox.Text 'my sheet

The "somehow read the RightListBox starting with the first entry"
Loop

Set lastcell = Cells.SpecialCells(xlLastCell)' find the last
mrows = lastcell.Row ' used row

Set rng = the first item in the list

rng.Copy Destination:=Worksheets(Me.DestTextBox.Text).Range ("A" &
(mrows + 1))

Next entry

Any ideas ??????

Thanks

Chris

Hi

Using an ActiveX listbox:

Sub test()
Dim L As Long
Dim S As String
For L = 0 To Me.ListBox1.ListCount - 1
S = Me.ListBox1.List(L)
MsgBox S
Next
End Sub

HTH. Best wishes Harald

"Chris Salcedo" skrev i melding
ups.com...
I now have a populated list box on my form. I now need to take each
value (its the name of a named range) and copy that range to another
sheet...


How do I create the loop ??????

On Error Resume Next
Sheets(Me.DestTextBox.Text).Delete

Sheets.Add
ActiveSheet.Name = Me.DestTextBox.Text 'my sheet

The "somehow read the RightListBox starting with the first entry"
Loop

Set lastcell = Cells.SpecialCells(xlLastCell)' find the last
mrows = lastcell.Row ' used row

Set rng = the first item in the list

rng.Copy Destination:=Worksheets(Me.DestTextBox.Text).Range ("A" &
(mrows + 1))

Next entry

Any ideas ??????

Thanks

Chris