I have Outlook 2010.  I have a macro to take my task, make a copy of it and then move the COPY into another task folder.  From my mailbox this works perfectly because I'm an administrator so the other mailboxes are not shared mailboxes (see screenshot attachment for My Mailbox).

 I now need my users to have this code, but the mailbox "Update CPI" is a Shared Task folder in their mailbox which is what I want(see screenshot attachment for User Mailbox).

 Can this line of my code be altered to access a Shared Task Folder?
 "Set objFolder = GetFolder("UpdateCPI\Tasks")"

 Here is my entire code:

 Sub CopyTaskDDS()
 'Check how many items need to create tasks
 ' DDS for Docketing
     Select Case TypeName(Outlook.Application.ActiveWindow)
     Case "Inspector"
         CreateTaskfromObject Outlook.Application.ActiveInspector.CurrentItem
     Case "Explorer"
         Dim objItem As Object
         For Each objItem In Outlook.Application.ActiveExplorer.Selection
             CreateTaskfromObject objItem
         Next
     End Select
 End Sub
 Sub CreateTaskfromObject(objItem As Object)
 ' NOTE - This code uses CopyTaskDDS
 ' DDS for Docketing
 Dim objTask As Outlook.TaskItem
 Select Case objItem.Class
 Case olTask
   ' Duplicate the task (DDS)
     Dim objMainTask As TaskItem
     Set objTask = Application.CreateItem(olTaskItem)
     Set objMainTask = objItem
     Set objTask = objMainTask.Copy
     With objTask
 '        .Subject = "DDS of " & .Subject
         .Subject = .Subject
         .Save
 '       .Display
     End With
 End Select
 'Close original task
     With objMainTask
         objItem.Close olSave
     End With

 ' *** DDS MAILBOX ***
 ' *** Moves selected mail message to the DDS Task folder in the DDS mailbox ***
 ' NOTE - This code also uses GetFolder Function
     Dim obj As Object
     Dim i As Long
     Dim Sel As Selection
     Dim objFolder As Outlook.MAPIFolder
     Dim objTasks As Outlook.MAPIFolder
     Dim objNS As Outlook.NameSpace
     Dim moveTo As Outlook.Folder
     
     Set objNS = Application.GetNamespace("MAPI")
     Set objTasks = objNS.GetDefaultFolder(olFolderTasks)
     Set objFolder = GetFolder("UpdateCPI\Tasks")
     
     Set Sel = Application.ActiveExplorer.Selection
     For i = Sel.Count To 1 Step -1
         Set obj = Sel(i)
         Select Case True
         Case (TypeOf obj Is Outlook.TaskItem), (TypeOf obj Is Outlook.ReportItem)
            objTask.Move objFolder
         End Select
     Next
 End Sub

Select allOpen in new window

Can anyone assist me.

 Thank you in advance!
Screenshot.jpg