VBA Script create a link to current selected item and copy to clip board