VB Code to get File Name

Hello:

I need VB Code to get the current file name without extension in cell I3 of the opened excel file.

Please let me know if you have any questions.
Thanks.

Riz

Try this;

Please Login or Register  to view this content.

Hello Sir:

I will be VB Macro from Within PERSONAL.xlsb where all my macros are.
Using above gives the file name as "PERSONAL" instead of excel file which is open "Fayetteville"
I wonder if there is way to change "ThisWorkbook" to "ActiveWorkbook"
And it woks by changing this

Thanks a lot

Riz

You didn't specify the sheet name so ...
How about something like:

FileNameWithoutExtension = Left(Range("I3"), InStrRev(Range("I3"), ".") - 1) ' Get data before last '.' in string