From: https://www.extendoffice.com/documents/excel/1431-excel-extract-filename-from-full-path.html
folder name filename path
Function FunctionGetFileName(FullPath As String) As String 'Update 20140210 Dim splitList As Variant splitList = VBA.Split(FullPath, "\") FunctionGetFileName = splitList(UBound(splitList, 1)) End Function
From: https://support.microsoft.com/en-gb/kb/2939112
http://www.microsoft.com/en-us/download/details.aspx?id=36852 To help you identify and resolve known causes of instability in Office programs, a diagnostic tool, the Office Configuration Analyzer Tool (OffCAT)