When trying to run the code DisplayOutlookContactNames I get an error message an object cannot be found on the line

Set olAddresslist = olNameSpace.AddressLists("Contacts")

I had also added to the references Microsoft Outlook 9.0 Object library as it previously did not allow the line

Dim olNameSpace As Outlook.NameSpace

I have copied the code from the download site so pretty sure its OK. Can anyone tell me what I am doing wrong ?

Roger Waters