Sub MakeNumberFormatDisplay()
Dim TBar As CommandBar
Dim NewBtn As CommandBarButton
Set TBar = CommandBars.Add
With TBar
.Name = "Number Format"
.Visible = True
End With
Set NewBtn = CommandBars("Number Format").Controls.Add(Type:=msoControlButton)
With NewBtn
.Caption = ""
.OnAction = "ChangeNumFormat"
.Style = msoButtonCaption
End With
End Sub