Insert Workbook File Name

J

Juan Pablo González

MrExcel MVP

Joined

Feb 8, 2002

Messages

11,959

• Sep 19, 2003

• #2

If you use MoreFunc:

=FILENAME()

if not:

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

 

Upvote 0

HalfAce

MrExcel MVP

Joined

Apr 6, 2003

Messages

9,456

• Sep 19, 2003

• #3

Hi mechanic,
In your ThisWorkbook module, enter this:

Code:

Private Sub Workbook_Open()
[A1].Value = Me.Name
End Sub

This assumes you want the file's name to be in cell A1. (Change to suit.)

Hope this helps,
HalfAce

 

Upvote 0

Iridium

Well-known Member

Joined

Jul 15, 2002

Messages

2,831

• Sep 19, 2003

• #4

Also

=CELL("filename")

HTH

 

Upvote 0