<div>
maybe I am misunderstanding the solution. once the second Workbook is created it should be filed into &quot;My Documents&quot;. I'm making the assumption that &quot;My Documents&quot; is the same for XP, and windows 7/8. Not sure how the code should be written to accomplish. Thanks
</div>


maybe I am misunderstanding the solution. once the second Workbook is created it should be filed into "My Documents". I'm making the assumption that "My Documents" is the same for XP, and windows 7/8. Not sure how the code should be written to accomplish. Thanks

<div>
<div class="content wysiwyg-content">
The code snippet below directs a new workbook to c:\tmp<br />
<br />
If Dir(ThisWorkbook.Path &amp;&nbsp;&quot;\&quot; &amp;&nbsp;&quot;new.xlsx&quot;) = &quot;&quot;&nbsp;Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; xBook.SaveAs Filename:=ThisWorkbook.Pat<wbr />h &amp;&nbsp;&quot;\&quot; &amp;&nbsp;ThisWorkbook.Name &amp;&nbsp;&quot;_&quot; &amp;&nbsp;Format(Now(), &quot;yyyymmdd_hhnnss&quot;) &amp;&nbsp;&quot;.xlsx&quot;, FileFormat:=xlOpenXMLWorkb<wbr />ook, CreateBackup:=False<br />
&nbsp; &nbsp; Else<br />
&nbsp; &nbsp; &nbsp; &nbsp; xBook.SaveAs Filename:=ThisWorkbook.Pat<wbr />h &amp;&nbsp;&quot;\&quot; &amp;&nbsp;&quot;new.xlsx&quot;, FileFormat:=xlOpenXMLWorkb<wbr />ook, CreateBackup:=False<br />
&nbsp; &nbsp; End If <br />
<br />
How would this be altered to go to D:\My Documents (windows environment)<br />
<br />
And the equivalent in the MAC OS. I don't use MAC and not sure if there is a common directory for docs.<br />
<br />
Thanks in advance for any suggestions
</div>
</div>


The code snippet below directs a new workbook to c:\tmp

If Dir(ThisWorkbook.Path & "\" & "new.xlsx") = "" Then
        xBook.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & Format(Now(), "yyyymmdd_hhnnss") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Else
        xBook.SaveAs Filename:=ThisWorkbook.Path & "\" & "new.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    End If 

How would this be altered to go to D:\My Documents (windows environment)

And the equivalent in the MAC OS. I don't use MAC and not sure if there is a common directory for docs.

Thanks in advance for any suggestions

Change ThisWorkBook.Path direction

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.