Thanks, I'm giving it a shot but like I said this isn't my strong suit. I have this and it's erroring out with run time error 91 "object cariable or with block variable not set." Any ideas?

Private Sub Application_Startup()
Dim myNameSpace As Outlook.NameSpace
Dim myContactsFolder As Outlook.Folder
Dim myPublicContactsFolder As Outlook.Folder

Set myContactsFolder = myNameSpace.GetDefaultFolder(olFolderConflicts)
Set myPublicContactsFolder = myNameSpace.GetDefaultFolder(olPublicFoldersAllPub licFolders)
Set Item = myPublicContactsFolder.Items("New Phone List").CopyTo(myContactsFolder)
End Sub