Sub ���s()
    Range("B2:B4").ClearContents
    CheckBox.Show vbModeless         
End Sub