<div>
These two should point you in the right directions:<br />
<a href="http://www.mrexcel.com/archive/Dates/3039b.html" rel="ugc">http://www.mrexcel.com/archive/Dates/3039b.html</a><br />
<a href="http://www.excelforum.com/excel-general/542867-excel-macro-save-as-date-of-last-friday.html" rel="ugc">http://www.excelforum.com/excel-general/542867-excel-macro-save-as-date-of-last-friday.html</a>
</div>


These two should point you in the right directions:
http://www.mrexcel.com/archive/Dates/3039b.html [http://www.mrexcel.com/archive/Dates/3039b.html]
http://www.excelforum.com/excel-general/542867-excel-macro-save-as-date-of-last-friday.html [http://www.excelforum.com/excel-general/542867-excel-macro-save-as-date-of-last-friday.html]

<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
I have the below which saves as todays date, i need it amended so it saves as yesterdays date and it must account for weekends. <br />
<br />
So saving today would create <br />
<br />
14/09<br />
<br />
and saving tomorrow will create<br />
<br />
17/09<br />
<br />
Thanks<br />
Seamus<br />
<br />
<br />
&nbsp; &nbsp; Strpath = &quot;xyz:\Ldn\BOBPS\BOBPSContr<wbr />ol\Rep\Mat<wbr />ch Stats\GLA &amp;&nbsp;SGP New Reporting\Daily Intellimatch File&quot;<br />
<br />
&nbsp; &nbsp; strFileSaveName = &quot;&quot;&nbsp;&amp; Format(Date, &quot;yyyymmdd&quot;) &amp;&nbsp;&quot;.xls&quot;<br />
&nbsp; &nbsp; Application.DisplayAlerts = False<br />
&nbsp; &nbsp; ActiveWorkbook.SaveAs Filename:=strFileSaveName,<wbr /> FileFormat:=xlNormal, Password:=&quot;&quot;, WriteResPassword:=&quot;&quot;, ReadOnlyRecommended:=False<wbr />, CreateBackup:=False
</div>
</div>


Hi,

I have the below which saves as todays date, i need it amended so it saves as yesterdays date and it must account for weekends. 

So saving today would create 

14/09

and saving tomorrow will create

17/09

Thanks
Seamus


    Strpath = "xyz:\Ldn\BOBPS\BOBPSControl\Rep\Match Stats\GLA & SGP New Reporting\Daily Intellimatch File"

    strFileSaveName = "" & Format(Date, "yyyymmdd") & ".xls"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=strFileSaveName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Amend Save File code

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