Sub SetMyDocs()
Dim o As Object
Set o = CreateObject("WScript.Shell")
MsgBox o.SpecialFolders("Desktop")
End Sub

--
Regards,
Tom Ogilvy



"Ed" wrote in message
...
How do I get the save dialog box to default to the user's desktop?
I basically need to know how to get the path to the user's desktop.
--
Thanks - Ed