Excel Bas Buttons

Sub ExcelBasButtons()
'
' BasButtons Macro
' Macro recorded 2006.09.19 by Bas Ovink
'

'
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=748, Before:=4
    Application.CommandBars("Standard").Controls(5).Delete
    Application.CommandBars("Standard").Controls(5).Delete
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=4, Before:=6
    Application.CommandBars("Standard").Controls(5).Delete
    Application.CommandBars("Standard").Controls(7).Delete
    Application.CommandBars("Standard").Controls(7).Delete
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=369, Before:=10
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=370, Before:=11
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=368, Before:=1
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=293, Before:=21
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=294, Before:=22
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=296, Before:=23
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=297, Before:=24
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=403, Before:=4
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=404, Before:=5
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=290, Before:=9
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=2600, Before:=13
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=6542, Before:=14
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=2601, Before:=15
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=798, Before:=16
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=800, Before:=17
    Application.CommandBars("Formatting").Controls.Add Type:=msoControlButton, _
        ID:=1742, Before:=18
    Application.CommandBars("Formatting").Controls(19).Delete
    Application.CommandBars("Formatting").Controls(21).Delete
    Application.CommandBars("Formatting").Controls(25).Delete
    Application.CommandBars("Borders").Visible = True
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=151, Before:=5
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=147, Before:=6
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=148, Before:=7
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=145, Before:=8
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=146, Before:=9
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=1841, Before:=10
    Application.CommandBars("Borders").Controls.Add Type:=msoControlButton, ID _
        :=1840, Before:=11
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=486, Before:=24
    Application.CommandBars("Standard").Controls(23).Move Bar:=Application. _
        CommandBars("Bas"), Before:=27
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=451, Before:=24
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=453, Before:=25
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=458, Before:=26
    Application.CommandBars("Filter Menu").Controls(1).Copy Bar:=Application. _
        CommandBars("Standard")
    Application.CommandBars("Standard").Controls(26).Delete
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=3160, Before:=27
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=3159, Before:=27
    Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _
        :=443, Before:=23
End Sub