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!

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!

"Chip Pearson" wrote:

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)

"Steve" wrote in message
...
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!

"daddylonglegs" wrote:

This formula will give you the "Test Me"

=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND(".xls",CELL("filenam e",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" wrote:

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!

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

"Steve" wrote in message
...
....
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 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

"David Biddulph" wrote:

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

"Steve" wrote in message
...
....
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?