ThisWorkbook.Name returns the current active workbook's name. 

 

Example

{code}

msgbox ThisWorkbook.Name

{/code}