Sub Show_Excel_2003_Style_Menu()
    On Error Resume Next
    Dim cmdBar As CommandBar
    Dim cmdBarCtrl As CommandBarControl
    Dim sMenuName As String
    Dim sToolbarName As String
    Dim iMenu As Integer

    sMenuName = "Excel 2003 Style Menu"
    sToolbarName = "Excel 2003 Style Toolbar"
    CommandBars(sMenuName).Delete
    CommandBars(sToolbarName).Delete
    Set cmdBar = CommandBars.Add(sMenuName, , , True)
    With cmdBar
        .Visible = True
        For iMenu = 1 To 10
            Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30001 + iMenu)
        Next iMenu
        Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30022) 'Chart
        Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30177) 'AutoShapes
    End With
    Set cmdBar = CommandBars.Add(sToolbarName, , , True)
    With cmdBar
        .Visible = True
        With .Controls
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=2520) 'New
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=23) 'Open
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3) 'Save
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=4) 'Print
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=109) 'Print Preview
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=2) 'Spelling
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=21) 'Cut
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=19) 'Copy
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=22) 'Paste
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=108) 'Format Painter
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=210) 'Sort Ascending
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=211) 'Sort Descending
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=984) 'Help
            Set cmdBarCtrl = .Add(Type:=msoControlComboBox, ID:=1728) 'Font
            Set cmdBarCtrl = .Add(Type:=msoControlComboBox, ID:=1731) 'Font Size
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=113) 'Bold
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=114) 'Italic
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=115) 'Underline
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=120) 'Align Left
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=122) 'Center
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=121) 'Align Right
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=402) 'Merge and Center
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=395) 'Accounting Number Format
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=396) 'Percent Style
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=397) 'Comma Style
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=398) 'Increase Decimal
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=399) 'Decrease Decimal
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3162) 'Decrease Indent
            Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3161) 'Increase Indent
        End With
    End With
    Set cmdBar = Nothing
    Set cmdBarCtrl = Nothing
    On Error GoTo 0
End Sub