Edit Macro to create folder on desktop for any user
<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>