' menüü loomine ja taastamine

Sub muudaMenyy()
  Set menyyriba = CommandBars.Add("isiklik", msoBarTop, True, True)
  menyyriba.Visible = True
  Set menyy = menyyriba.Controls.Add(Type:=msoControlPopup, before:=1)
  menyy.Caption = "Tere"
  Set element = menyy.Controls.Add
  element.Caption = "Juku"
  element.OnAction = "muudaReaKorgus" 'käivitatava makro nimi
  Set element = menyy.Controls.Add
  element.Caption = "Kati"
End Sub

Sub algmenyyTagasi()
  CommandBars("isiklik").Delete
End Sub