View Single Post
 
Old 09-23-2015, 01:06 PM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

Perhaps something like this ?
Code:
Sub RemovePathAndFileName()

    Dim str As String
    
str = Range("A2").Formula
MsgBox "'" & Mid(str, InStrRev(str, "]") + 1)

End Sub
Reply With Quote