Hỏi về cách tạo menu?

[PhanTuHuong]

Tôi dùng thủ tục dưới đây để tạo menu:

Sub Auto_Open()
  Dim MenuTKe As CommandBarControl
  Set MenuTKe = CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, before:=9, temporary:=True)
      MenuTKe.Caption = "Thong ke"
      MenuTKe.Controls.Add(Type:=msoControlButton).Caption = "Menu 1"
      MenuTKe.Controls.Add(Type:=msoControlButton).Caption = "Menu 2"
      
  Set MenuTKe = Nothing

End Sub

Thủ tục này chạy bình thường khi mở file. Tuy nhiên khi chuyển code sang trong sự kiện

Private Sub Workbook_Open()
nội dung các dòng lệnh trên
End Sub

thì toàn báo lỗi?? Tôi không hiểu được tại sao khi hai thủ tục có ý nghĩa như sau.

Bác nào có kinh nghiệm giải thích giúp?