The creation of shortcuts is done upon opening the spreadsheet. Would it work better if I did it when closing? I found this macro on the internet and it more or less work, just doesn't put anything in the cell "start in" in the shortcut properties.

Sub CreatShortCut()
   Dim WSHShell
   Set WSHShell = CreateObject("WScript.Shell")
   Dim MyShortcut, DesktopPath
   DesktopPath = WSHShell.SpecialFolders("Desktop")
   Set MyShortcut = WSHShell.CreateShortCut(DesktopPath & "\2014_B620_both_forms_macr1b2.xltm.lnk")
   With MyShortcut
      .TargetPath = WSHShell.ExpandEnvironmentStrings(Environ("USERPROFILE") & "\Documents\2014_B620_both_forms_macr1b2.xltm")
      .Save
    End With
 End Sub
Is there code I can put in to populate that in the link properties?
desktop_link.JPG