Toggle button pressed

[Stevenn]

I have a <toggleButton />, but I want it to be pressed if a cell value is equal to 1.

I've got the following VBA code for my toggleButton:

Public Sub Toggle_is_clicked(Control As IRibbonControl, pressed As Boolean)
If pressed Then
Range("Form").Value = 1
Else
Range("Form").Value = 0
End If
End Sub

Public Function GetPressed(Control As IRibbonControl, ByVal pressed) As Boolean
End Function