Shauna

try:

Dim objSpace As Outlook.NameSpace
Dim objItems As Outlook.Items
Dim objItm As Object 'folder can contain multiple types...

Set objItems = objSpace.GetFolderFromID(cbxFolders.Value).Items
objItems.Sort ("Company")



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Shauna Koppang" wrote:

I have a ComboBox whose contents comes from the company
field in Outlook in a Public Folder Contact type folder.
The folder contents in Outlook are sorted based on Company
in ascending order. When the ComboBox is displayed in the
workbook the names in the list are not in alphabetic
order. Any suggestions on how I can get them in order?

Thanks!

Shauna