Excel VisualBasic Script

Sub test()
    MsgBox ActiveWorkbook.FullName
End Sub