How to create a List Box with Macro

[#1]

Hi,

I want to create a ListBox using macro and assign a column to spread values in listbox.

Thanks,

Chris

[giakoum]

sub CreateListBox

set vListBox = ActiveDocument.Sheets("Main").CreateListBox

set vProperties = vListBox.GetProperties

vProperties.Def.Name = "F2"

vListBox.SetProperties vProperties

set vProperties = nothing

set vListBox = nothing

end sub