Current Selections - Population from another object.

[dbaksa_1]

I want to read the records for one field in an object and then use the values found to populate the Current Selections box. Below is the code I have put together thus far which walks through the rows but I'm struggling on how to collect all of the values and pass them to the current selections box.

Any help will be appreciated,

Thanks,

Dan

Sub SelectRecordsCH18
set table = ActiveDocument.GetSheetObject( "CH18" )
for RowIter = 1 to table.GetRowCount-1
'for ColIter = 0 to table.GetColumnCount-0
set cell = table.GetCell(RowIter,0)
msgbox(cell.Text)
set ObjVar = ActiveDocument.Variables("vSelection")
ObjVar.SetContent cell.Text, TRUE
next
end sub