Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, DesktopPath DesktopPath = WSHShell.SpecialFolders("Desktop") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "/test.xls.lnk") With MyShortcut .TargetPath = WSHShell.ExpandEnvironmentStrings("e:/test.xls") .Save End With End Sub