Knap til Excel makro

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
        CheckBox1.Caption = "ON" 'kan udelades
        'Din kode
    Else
        CheckBox1.Caption = "OFF" 'kan udelades
        'Din kode
    End If
End Sub

Private Sub ToggleButton1_Change()
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "ON"
        'Din kode
    Else
        ToggleButton1.Caption = "OFF"
        'Din kode
    End If
End Sub

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        CheckBox1.Caption = "ON" 'kan udelades
        MsgBox "CheckBox1 er ON" 'Din kode
    End If
    If CheckBox1 = False Then
        CheckBox1.Caption = "OFF" 'kan udelades
        MsgBox "CheckBox1 er OFF" 'Din kode
    End If
End Sub

Private Sub ToggleButton1_Change()
    If ToggleButton1 = True Then
        ToggleButton1.Caption = "ON"
        MsgBox "ToggleButton1 er ON" 'Din kode
    End If
    If ToggleButton1 = False Then
        ToggleButton1.Caption = "OFF"
        MsgBox "ToggleButton1 er OFF" 'Din kode
    End If
End Sub