Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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