If you start an Excel sheet (e.g. Test.xls) you can get the path where
the Excel sheet is located with
MsgBox (ActiveWorkbook.Path)

Now you create a shortcut (e.g. Shortcut of Test.xls) and move it to
another directory. If you start that shortcut
MsgBox (ActiveWorkbook.Path)
still shows the path where the Excel sheet is located.

Does someone know how to get the path where the shortcut is located?

PS: In real VB I do it with a FileListBox: MsgBox (FileListBox1.Path)