代码运行错误'424'要求对象 求解答

这段代码在运行时提示错误'424'要求对象，没弄明白哪里错了，哪位大神帮忙解答一下

Sub Test()
  Dim a As String
      a = ActiveWorkbook.CodeName
 Debug.Print a
End Sub