Substitute command button for button on the ribbon

[dim4x4]

Hello!

I have a command button with the following code:

Private Sub CommandButton1_Click()

    If vTurnOn = False Then
       vTurnOn = True
    Else
       vTurnOn = False
    End If

End Sub

How do I make a button on the ribbon that does the same thing that the code?

Thank you!

 

[EXCEL MAX]

First find some secure location and download "Custom UI Editor For Microsoft Office". It allows you to create custom ribbon.
Open UI Editor and go to file open and open your Excel workbook.
Click "Insert" and select version of "Office". On the right side of UI Editor paste this code...

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="customTab2" label="My Tools">
                <group id="customGroup" label="My Button">
                    <button id="customButton"
                        label = "Turn On Button"
                        size = "large"
                        onAction="TurnOn" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

In the UI Editor in the menu click "Validate" icon to check possible errors.
Folow validate instructions. When you recive "Custom UI is well formed" save UI Editor and close.
Now open your workbook and create standard module.
Paste this code in this module...

Dim vTurnOn As Boolean

Sub TurnOn(control As IRibbonControl)

    If vTurnOn = False Then
       vTurnOn = True
       MsgBox "OK"
    Else
       vTurnOn = False
    End If
    
End Sub

Save workbook and reopen. You will see new tab with new button.