The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer. All content provided on this blog is for informational purposes only. The owner of this blog makes no representations as to the accuracy or completeness of any information on this site or found by following any link on this site. The owner will not be liable for any errors or omissions in this information nor for the availability of this information. The owner will not be liable for any losses, injuries, or damages from the display or use of this information. This policy is subject to change at any time. The owner is not an attorney, and nothing posted on this site should be construed as legal advice. Litigation Support Tip of the Night does not provide confirmation that any e-discovery technique or conduct is compliant with legal, regulatory, contractual or ethical requirements.
Featured on the ACEDS blog.
Follow me on Twitter and see How-To Videos on my YouTube channel.
New tips for paralegals and litigation support profesionals are posted to this site each night. Click on the blog headings for better detail.
Use the below macro when you want to get a list of source files linked to an Excel file that you're using. It was posted to the Extend Office site, by the developers of Kutools. When you try to open an Excel file that has links in formulas to other Excel files which are no longer in the same location as when the file was created, you'll get a message like this:
This is a common problem in electronic discovery. Excel files will be produced in native format and then end up being used by someone working on a different network that does not have other Excel native files in the same location. If you can't find these files in the production database, you may need to make a list of them so you can request them from the other side. The macro features in tonight's post will create a new worksheet in your Excel file listing all of the source spreadsheets and their file paths.
Sub ListLinks() 'Updateby20140529 Dim wb As Workbook Set wb = Application.ActiveWorkbook If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then wb.Sheets.Add xIndex = 1 For Each link In wb.LinkSources(xlExcelLinks) Application.ActiveSheet.Cells(xIndex, 1).Value = link xIndex = xIndex + 1 Next link End If End Sub
[try copying the VB code of the Extend Office site, if copying & pasting in this code doesn't work.]