ActiveWorkbook Property Example
This example displays the name of the active workbook.
MsgBox "The name of the active workbook is " & ActiveWorkbook.Name