Auto open sorunu 2003 excell

[kykbt]

Arkadaşlar Merhaba
Daha evvel çalışan bu kod şimdi hata veriyor.

Dim AnaMenü As CommandBarControl, AnaAltMenü As CommandBarControl

Ofice tekrar kursamda bu hata düzelmiyor.
acil yardım hocalaımdan..

Sub Auto_Open()
Dim AnaMenü As CommandBarControl, AnaAltMenü As CommandBarControl
    Sheets("Sayfa1").Select
    Range("a1").Select
Set AnaMenü = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With AnaMenü
    .Caption = "&Makrolar"
    .Tag = "MyTag"
    .BeginGroup = False
End With
End Sub