simply copies the NumberFormat property of the ActiveCell to the Caption property of the button control. : CommandBar « Application « VBA / Excel / Access / Word
simply copies the NumberFormat property of the ActiveCell to the Caption property of the button control.
Sub UpdateToolbar()
On Error Resume Next
CommandBars("Number Format").Controls(1).Caption = ActiveCell.NumberFormat
If Err <> 0 Then CommandBars("Number Format").Controls(1).Caption = ""
End Sub