
Sub CreaBarra()
Dim MyBar1 As CommandBar
Dim MyButton As CommandBarControl
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Delete
On Error GoTo 0
Set MyBar1 = Application.CommandBars.Add(nome:="ITA_KAAP", Position:=msoBarTop, MenuBar:=True, Temporary:=False)
With MyBar1
.Visible = True |
.Add(nome:="ITA_KAAP"
