I have a macro that saves a step file to my desktop, but I want to share this macro on a network location and allow others to use it. But I need it to save to their desktop. Is there a way to query the current user and set the path to their desktop? Below is my current snippet of code. I need the filepath to be "C:\\Users\\CURRENT USER\\Desktop.

  Filepath = "C:\\Users\\jefft\\Desktop"

  Filepath = Filepath + "\\"

  Filename = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\\") + 1)

  Filename = Left(Filename, InStrRev(Filename, ".") - 1)

        swModel.Extension.SaveAs Filepath & Filename & ".step", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, nErrors, nWarnings

        MsgBox "STEP File saved to Desktop!"

Thanks in advance!

Jeff