I wrote this code that is supposed to create graphs and automatically format them. I then made this custom menu that was to be used as an Add-In but whenever I try to run the macro from the custom menu, it won't run properly. Heres what I have as my code:

Sub DeleteMenu()
    On Error Resume Next
    CommandBars(1).Controls("Variance Analysis").Delete
    On Error GoTo 0
End Sub
Sub CreateMenu()

    Dim HelpMenu As CommandBarControl
    Dim NewMenu As CommandBarPopup
    Dim MenuItem As CommandBarControl
    Dim SubMenuItem As CommandBarButton
    
    Call DeleteMenu
    
    Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
    
    If HelpMenu Is Nothing Then
        Set NewMenu = CommandBars(1).Controls _
            .Add(Type:=msoControlPopup, Temporary:=True)
    Else
        Set NewMenu = CommandBars(1).Controls _
            .Add(Type:=msoControlPopup, Before:=HelpMenu.Index, _
            Temporary:=True)
    End If
    
    NewMenu.Caption = ("&Variance Analysis")
    
    'FIRST MENU ITEM
    Set MenuItem = NewMenu.Controls.Add _
        (Type:=msoControlPopup)
    With MenuItem
        .Caption = ("Populate Variance Table")
    End With
        
    'FIRST SUBMENU ITEM
    Set SubMenuItem = MenuItem.Controls.Add _
        (Type:=msoControlButton)
    With SubMenuItem
        .Caption = "TSA Var Table"
        .OnAction = "FormatTSAVariance"
        .FaceId = 162
    End With
    
    'SECOND SUBMENU ITEM
    Set SubMenuItem = MenuItem.Controls.Add _
        (Type:=msoControlButton)
    With SubMenuItem
        .Caption = "DHS Var Table"
        .OnAction = "FormatDHSVariance"
        .FaceId = 162
    End With
        
    'SECOND MENU ITEM
    Set MenuItem = NewMenu.Controls.Add _
        (Type:=msoControlPopup)
    With MenuItem
        .Caption = ("Create Variance Graphs")
        .BeginGroup = True
    End With
    
    'FIRST SUBMENU UNDER SECOND MENU ITEM
    Set SubMenuItem = MenuItem.Controls.Add _
        (Type:=msoControlButton)
    With SubMenuItem
        .Caption = ("TSA Var Graphs")
        .OnAction = "TSACreateChart"
        .FaceId = 65
    End With
    
    'SECOND SUBMENU UNDER SECOND MENU ITEM
    Set SubMenuItem = MenuItem.Controls.Add _
        (Type:=msoControlButton)
    With SubMenuItem
        .Caption = ("DHS Var Graphs")
        .OnAction = "DHSCreateChart"
        .FaceId = 65
    End With
    
    'THIRD SUBMENU UNDER THRID MENU ITEM
    Set SubMenuItem = MenuItem.Controls.Add _
        (Type:=msoControlButton)
    With SubMenuItem
        .Caption = ("Total Var Graphs")
        .OnAction = "TotalCreateChart"
        .FaceId = 65
    End With
End Sub