The problem is:
when a user  selects more than one line  in a textbox, how do I have the macro
run code on each line.

tb_Data is the textbox  with the data.

I've look at:
sub GetSelection
'Need to loop thur only selected  rows
'Only gives the last row selected
'(however, if nothing is selected the
'value is 0 which is the first line
'which isn't good)
SelectionRow = UserForm2.tb_Data.ListIndex

While SelectionRow > -1
'Get data from the 1st column
Column1 = UserForm2.tb_Data.List(SelectionRow)
'Get data from the 2nd column
Column2 = UserForm2.tb_Data.List(SelectionRow, 1)

' Call MyMacro(Column1, Column2)

SelectionRow = SelectionRow - 1
Wend

'If I could deselect the current last row I could
'loop backwards and run  MyMacro only on all
'selected lines

end sub