title: Edit Macro to create folder on desktop for any user
body: <p>I have a spreadsheet with a save button on every sheet. The buttons currently save the sheets onto any user's desktop as a PDF file. I was asked if I could possibly make the button create a new folder titled "BSInHouseAssets" on the desktop when doing this.  I am guessing that we would utilize MKdir at some point...but I need help.
  Here is the current portion of the macro that saves the file.</p>
  
  <pre><code>Function SpecialFolderPath() As String
  
    Dim objWSHShell As Object
    Dim strSpecialFolderPath
  
    'On Error GoTo ErrorHandler
    ' Create a shell object
    Set objWSHShell = CreateObject("WScript.Shell")
    ' Find out the path to the passed special folder,
    '  just change the "Desktop" for one of the other options
    SpecialFolderPath = objWSHShell.SpecialFolders("desktop")
    ' Clean up
    Set objWSHShell = Nothing
    Exit Function
  ErrorHandler:
  
    MsgBox "Error finding " &amp; strSpecialFolder, vbCritical + vbOKOnly, "Error"
  End Function
  </code></pre>