One way:

Option Explicit
Sub testme()
Dim myDocumentsPath As String

Dim wsh As Object

Set wsh = CreateObject("WScript.Shell")
myDocumentsPath = wsh.SpecialFolders.Item("mydocuments")

MsgBox myDocumentsPath

End Sub

Matthew wrote:

How do I setup a macro that will save to the "My Documents" folder even
though the path is different on different PC's. Since Win-XP moved the "My
Docs" folder to a differnet place for each user.
--
Respectfully
Matthew Russell

--

Dave Peterson