Private Sub MakeShorCut(ByRef exe_path As String, ByRef shortcut_name As String) Dim strFolder As String Dim objWSHShell As Object Dim objShortcut As Object objWSHShell = CreateObject("WScript.Shell") strFolder = objWSHShell.SpecialFolders("Desktop") objShortcut = objWSHShell.CreateShortcut(strFolder & "\" & shortcut_name & ".lnk") With objShortcut .TargetPath = objWSHShell.ExpandEnvironmentStrings(exe_path) .WindowStyle = 4 .Save() End With End Sub