Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. 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