Add menu bar Error

[PATTANAM]

Hi Mr. Excel,

I have written the below code and I'm able to open only form1 but not form2 and error message is "Canont run Macro & THe Macro may not be available in this workbook or all macros may be disabled" . I'm confussed, and have enable all settings as well.

Please help.

Sub AddMenu()
On Error Resume Next
Set MyMenubar = CommandBars.ActiveMenuBar
With MyMenubar
With .Controls("US Capital Lease")
.Delete
End With
End With
Set newMenu = MyMenubar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "US Capital Lease"
Set Report = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With Report
.Caption = "Report Formats"
.Style = msoButtonCaption
.OnAction = "Report Formats"
End With
Set recons = newMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With recons
.Caption = "Reconciliation"
.Style = msoButtonCaption
.OnAction = "Reconciliation"
End With
End Sub
Sub DeleteMenu()
On Error Resume Next
Set MyMenubar = CommandBars.ActiveMenuBar
With MyMenubar
With .Controls("US Capital Lease")
.Delete
End With
End With
End Sub
Public Sub Reconciliation()
Application.ScreenUpdating = False
Load UserForm1
UserForm1.Show
End Sub
Public Sub ReportFormats()
Application.ScreenUpdating = False
Load UserForm2
UserForm2.Show
End Sub