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!