Tạo nút ActiveX 2 chức năng

[mr.ghostvt]

XIn chào mọi người, e có thắc mắc là có cách nào có thể viết code cho nút checkbox nó có 2 chức năng không ạ.
Ví dụ như file đính kèm e gửi, khi tíck vào thì ô H22 sẽ tự động tính tổng, còn nếu bỏ tíck thì tự động xóa, cảm ơn mọi người đã giúp đỡ ạ.

Private Sub CheckBox1_Click()
Sheet1.Range("H22").Formula = "=sum(H4:H21)"
End Sub

 

[VuVanHao]

if CheckBox1 = True then
Code tính kết quả
else
Code xóa kết quả
End if

 

[mr.ghostvt]

if CheckBox1 = True then
Code tính kết quả
else
Code xóa kết quả
End if

thanks bác,e làm đc rồi.