<div>
<div class="content wysiwyg-content">
can any Expert throw any light on this for me.<br />
<br />
Have been using this code for a while and it's been fine but today its trying to open a file in a folder 1899 ???<br />
<br />
Dim dt As Date<br />
Dim wbk As Workbook<br />
If Format(Now, &quot;dddd&quot;) = &quot;Monday&quot; Then<br />
lastWorkingDate = DateAdd(&quot;D&quot;, -3, Now())<br />
&nbsp; &nbsp;Else<br />
&nbsp; &nbsp; dt = DateAdd(&quot;d&quot;, -1, Now)<br />
End If<br />
Set wbk = Workbooks.Open(&quot;N:\EVERYON<wbr />E\Ops to PC folders\&quot; &amp;&nbsp;Format(dt, &quot;yyyy&quot;) &amp;&nbsp;&quot;\&quot; &amp;&nbsp;Format(dt, &quot;MM MMM&quot;) &amp;&nbsp;&quot;\&quot; &amp;&nbsp;&quot;Div rec &quot;&nbsp;&amp; Format(dt, &quot;dd.MM.yyyy&quot;) &amp;&nbsp;&quot;.xlsx&quot;)<br />
<br />
any ideas
</div>
</div>


can any Expert throw any light on this for me.

Have been using this code for a while and it's been fine but today its trying to open a file in a folder 1899 ???

Dim dt As Date
Dim wbk As Workbook
If Format(Now, "dddd") = "Monday" Then
lastWorkingDate = DateAdd("D", -3, Now())
   Else
    dt = DateAdd("d", -1, Now)
End If
Set wbk = Workbooks.Open("N:\EVERYONE\Ops to PC folders\" & Format(dt, "yyyy") & "\" & Format(dt, "MM MMM") & "\" & "Div rec " & Format(dt, "dd.MM.yyyy") & ".xlsx")

any ideas

macro query re open file with date

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