Private Sub CBcancel_Click()
    
    If CheckBox1.Value = True Then
       Sheets("Sheet1").Range("B2").Value = 1
    End If
    
    If CheckBox2.Value = True Then
       Sheets("Sheet1").Range("B3").Value = 2
    End If
    
    If CheckBox3.Value = True Then
       Sheets("Sheet1").Range("B4").Value = 3
    End If
    
    Unload CheckBox

End Sub
--------------------------------------------------------------
Private Sub CBok_Click()

    If CheckBox1.Value = True Then
       Sheets("Sheet1").Range("B2").Value = "A"
    End If
    
    If CheckBox2.Value = True Then
       Sheets("Sheet1").Range("B3").Value = "B"
    End If
    
    If CheckBox3.Value = True Then
       Sheets("Sheet1").Range("B4").Value = "C"
    End If
    
End Sub
--------------------------------------------------------------
Private Sub UserForm_Initialize()

    CheckBox1 = False
    CheckBox2 = False
    CheckBox3 = False

End Sub