Macro to create desktop shortcut. Worked, but saved sheet as template, now not.

I have this macro that creates a desktop shortcut for the spreadsheet as well as setting up two folders and shortcuts on desktop. This macro worked, but I saved the spreadsheet as a template and now it does not work properly. It saves a shortcut on the desktop, but the path for the spreadsheet is now desktop instead of the documents folder it resides in. How did saving the spreadsheet as a template affect the macro? If there is something else I can do to improve this macro, please post and I appreciate the help. Thanks for any help!

Private Sub Workbook_Open()

RunOnce = "C:B620_unsigned" & "Runonce.Log"
If Dir(RunOnce) = Empty Then
MkDir "C:B620_unsigned"
MkDir "C:B620_signed"
Open RunOnce For Output As #1
Close #1
End If

RunOnce = "C:B620_signed" & "Runonce.Log"
If Dir(RunOnce) = Empty Then
MkDir "C:B620_signed"
Open RunOnce For Output As #1
Close #1
End If

Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String

Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")
Set oShortcut = oWSH.CreateShortcut(sPathDeskTop & "\" & _
ActiveWorkbook.Name & ".lnk")
With oShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set oWSH = Nothing

Dim WSH As Object
Dim MyShortCut As Object
Dim destPath As String
Dim srcPath As String

srcPath = Environ("USERPROFILE") & "\Documents\B620_unsigned\"

Set WSH = CreateObject("WScript.Shell")
destPath = WSH.SpecialFolders.Item("Desktop")

Set MyShortCut = WSH.CreateShortcut(destPath & "\B620_unsigned.lnk")
With MyShortCut
.TargetPath = srcPath
.Save
End With
Set WSH = Nothing

Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")

Set oShortcut = oWSH.CreateShortcut(sPathDeskTop & "\" & _
ActiveWorkbook.Name & ".lnk")
With oShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set oWSH = Nothing

srcPath = Environ("USERPROFILE") & "\Documents\B620_signed\"

Set WSH = CreateObject("WScript.Shell")
destPath = WSH.SpecialFolders.Item("Desktop")

Set MyShortCut = WSH.CreateShortcut(destPath & "\B620_signed.lnk")
With MyShortCut
.TargetPath = srcPath
.Save
End With
Set WSH = Nothing


Exit Sub


End Sub