<div>
Dim wk as Workbook<br />
Set wk = ActiveWorkbook
</div>


Dim wk as Workbook
Set wk = ActiveWorkbook

<div>
Excellent, thanks Jppinto!<br />
<br />
Seamus
</div>


<div>
<div class="content wysiwyg-content">
Hi, i have this formula in the VBA editor<br />
<br />
.Range(&quot;U1&quot;).Formula = DateSerial(Mid(ThisWorkboo<wbr />k.Name, 13, 4), Mid(ThisWorkbook.Name, 11, 2), Mid(ThisWorkbook.Name, 9, 2))<br />
<br />
The code opens another file which im trying to read the date off, one of the problems, is that because the above formula is in the editor of my core spreadsheet, thats spreadsheet name its trying to read. So i need it to be amended so it can read the active workbooks name<br />
<br />
Thanks<br />
Seamus
</div>
</div>


Hi, i have this formula in the VBA editor

.Range("U1").Formula = DateSerial(Mid(ThisWorkbook.Name, 13, 4), Mid(ThisWorkbook.Name, 11, 2), Mid(ThisWorkbook.Name, 9, 2))

The code opens another file which im trying to read the date off, one of the problems, is that because the above formula is in the editor of my core spreadsheet, thats spreadsheet name its trying to read. So i need it to be amended so it can read the active workbooks name

Thanks
Seamus

ThisWorkbook.name

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