Refresh ribbon with code

[FONT=Verdana]<checkBox id = "Fnew" getLabel="CallbackGetLabel" getPressed="GetPressed" onAction="KOLONAC" /> 

[/FONT]

[FONT=Verdana]Dim bChk(0 To 2) As Boolean 
Public objRibbon As IRibbonUI Private Sub o n l o a d(ribbon As IRibbonUI) 
    Dim i As Long 
    Set objRibbon = ribbon 
    bChk(0) = True 
End Sub 

Function GetChkBox(ByVal sString) As String 
    Select Case sString 
    Case "Fnew" 
        GetChkBox = "0" 
    End Select 
End Function 

Sub GetPressed(control As IRibbonControl, ByRef Button) 
    Button = bChk(GetChkBox(control.ID)) 
End Sub 

Sub CallbackGetLabel(control As IRibbonControl, ByRef Label) 
    On Error Resume Next 
    Select Case control.ID 
    Case "Fnew" 
        Label = Range("B12").Value 
    End Select 
End Sub 

[/FONT]