kann jmd sagen, wie ich den Code anpassen muß, damit eine Verknüpfung nicht auf dem Desktop, sondern bei Win2000 im Startmenü erscheint?
Dim wsh As Object
Dim o_sh As Object
Dim s_desktop As String
Set wsh = CreateObject("WScript.shell")
s_desktop = wsh.specialfolders("Desktop")
Set o_sh = wsh.createshortcut(s_desktop & _
"\" & ThisWorkbook.Name & ".lnk")
With o_sh
.targetpath = ThisWorkbook.FullName
.Save
End With
Set wsh = Nothing
Gruß
Dennis