Place Chosen File Name In Cell

[Delta Star]

I'm using this code I've found on the site to enter the name of a file selected.

OpenFile = Application.GetOpenFilename("Textfiles (*.txt),*.txt", , "Open a textfile...")
   
    Sheets("Test").Range("J2").Value = OpenFile

However the cell shows the full path name and extension, I need it to show the file name only.

Can anyone assist?

 

[machopicho]

Try:

OpenFile = Application.GetOpenFilename("Textfiles (*.txt),*.txt", , "Open a textfile...")
txt = Split(OpenFile, "\")
Sheets("Test").Range("J2").Value = txt(UBound(txt))

 

[Delta Star]

Almost there, at the end it's still showing .txt

I also need that part removing.

Can anyone assist further?

 

[machopicho]

Try:

OpenFile = Application.GetOpenFilename("Textfiles (*.txt),*.txt", , "Open a textfile...")
txt = Split(OpenFile, "\")
Sheets("Test").Range("J2").Value = txt(UBound(txt))
Sheets("Test").Range("J2").Value = Left(Sheets("Test").Range("J2").Value, Len(Sheets("Test").Range("J2").Value) - 4)
)