Automatically create at shortcut to a file

Question

I have a small piece of code under a command button click which saves the workbook file with a new name in a new location, I am wondering if it is possible to also automatic

Answer 1

You basically need to add something like this:

Dim sShortcutLocation As String

sShortcutLocation = "C:\blah\workbook shortcut.lnk"

With CreateObject("WScript.Shell").CreateShortcut(sShortcutLocation)
    .TargetPath = myFileName
    .Description = "Shortcut to the file"
     .Save
End With

changing the location to wherever you want.