I have the following code to save the current file in the existing folder
wherever that may be. :

'Save file with new name in existing path
sPathName = ActiveWorkbook.Path & "\"
sFileName = Range("File_SaveAs_Date_Sheet1").Value
sFileNamePath = sPathName & sFileName
ActiveWorkbook.SaveAs sFileNamePath

What I would like to be able to do is send a shortcut to the desktop for
easy access to this file. Ideally the shortcut would contain the file name,
as provided by sFileName = Range("File_SaveAs_Date_Sheet1").Value.

As a one off I can manually enter the path to desktop, but ideally this
would be obtained by the macro.

Many Thanks

Paul Moles