Onay Kutusu Tiki Kaldırıldığında Mesaj Çıkarma

Checkbox un tıklanma olayında kullanın;

if Checbox1.value = false then mgsbox "onay kalktı"

okutkan,​

60 tane onay kutusu var. Bunlar için nasıl yapılacak bilmiyorum.
Ekli dosyadaki koda göre bir uyarlama yapılabilirse paylaşır mısınız?

Malesef o konuda bilgim yok, bir süre bekleyin başka bir yönetici arkadaş konuyla ilginebilir.

@ErolU.

ÇALIŞMIYOR notu koyulan kod satırlarını silip (en sondaki END IF kalsın),
kodun baş tarafını şöyle değiştirerek dener misiniz?

Ömer BARAN,​

Önerdiğiniz kodun aşağıdaki bölümünü anlayamadım. Gerekli mi bilemiyorum.
Ayrıca kontrol = WorksheetFunction........ kısmı hatalı gözüküyor.

Aşağıdaki gibi yazınca sorun yine çözülmüyor. Ya da ben bir yeri anlayamıyorum.

Ömer BARAN,​

7 no.lu iletinizdeki değişkenleri tanımlayıp aşağıdaki satırı oluşturdum.

Bu satır ilk iletimdeki dosyada yer alan kodun en altındaki çalışmayan kod bloğu olarak gösterdiğim yere eklenince sorunu çözdü.

Önerileriniz için teşekkür ederim.

NOT: Satırı yazıyla yazınca yanıtı gönderemedim. Dolayısı ile resim olarak ekledim. Galiba teknik bir sıkıntı var.