I am trying to delete all of the contacts from a folder and restore the a fresh list. I am having trouble getting a reference to my folder due to it not being the default folder. Does anyone know how to set a variable to the folder you specify instead of the default?

The Folder Name that I would like to use is "CSEE Folders"

Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.ContactItem
Dim Prop As Outlook.UserProperty

Set olns = ol.GetNamespace("MAPI")

'**Below is the line that I would want to replace with the proper
'**command to set the cf variable to the 'CSEE Folders' name.
Set cf = olns.GetDefaultFolder(olFolderContacts)