Workbook name

[Steve]

Is there a way to copy the Workbook Name into a worksheet?

Say I had a workbook called Test Me.xls, when it is opened it will put "Test
(dont meed the "me") into cell A1?

Thank you in advance!

 

[daddylonglegs]

This formula will give you the "Test Me"

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

If you just want the first word in the filename try

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

 

[Steve]

Thank you, that does work.

How can I make this happen with a Workbook_Open() event? (I am sick of
messing with it)

Thank you once again!

This formula will give you the "Test Me"

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

If you just want the first word in the filename try

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

Is there a way to copy the Workbook Name into a worksheet?

Say I had a workbook called Test Me.xls, when it is opened it will put "Test
(dont meed the "me") into cell A1?

Thank you in advance!

 

[Chip Pearson]

Try

Private Sub Workbook_Open()
Me.Worksheets("Sheet1").Range("A1").Value = Me.Name
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

Thank you, that does work.

How can I make this happen with a Workbook_Open() event? (I am sick of
messing with it)

Thank you once again!

This formula will give you the "Test Me"

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

If you just want the first word in the filename try

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

Is there a way to copy the Workbook Name into a worksheet?

Say I had a workbook called Test Me.xls, when it is opened it will put
"Test
(dont meed the "me") into cell A1?

Thank you in advance!

 

[Steve]

BEAUTIMOUS!

Thank you for the help works great!

Maybe help with my next quesition about formatting? How can I format the
target cell to ignore the first X amount of charaters and the ignore the
".xls" at the end?

Thank you once again!

Try

Private Sub Workbook_Open()
Me.Worksheets("Sheet1").Range("A1").Value = Me.Name
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

Thank you, that does work.

How can I make this happen with a Workbook_Open() event? (I am sick of
messing with it)

Thank you once again!

This formula will give you the "Test Me"

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

If you just want the first word in the filename try

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



:

Is there a way to copy the Workbook Name into a worksheet?

Say I had a workbook called Test Me.xls, when it is opened it will put
"Test
(dont meed the "me") into cell A1?

Thank you in advance!

 

[David Biddulph]

Look at the MID() function.
Try =MID(A1,X+1,LEN(A1)-X-4)

 

[Steve]

Thank you David and Chip, after some experimenting I did get it to work
properly.

Keep up the great work, you make it much easier for lackies like myself!

Steve