Yardım CheckBox True da renklendirme alanı belirleme

Merhaba Arkadaşlar,

Aşağıda ki koda CheckBox True olduğunda CheckBox ın olduğu satır "A13:R13" kadar renklendirmeyi nasıl yapabilirim ayrıca "R13" KONTROL EDİLDİ yazısını hücreye nasıl yazdırabilirim. Haliyle bu işlemi de sayfada bulunan bütün CheckBox larda olması gerekiyor. İlgileriniz için şimdiden teşekkür ediyorum.

For i = 13 To Cells(Rows.Count, 2).End(3).Row
If Cells(i, "b") <> "" Then
Set Hcr = Cells(i, "a")
Set Check = ActiveSheet.CheckBoxes.Add(Hcr.Left, Hcr.Top, Hcr.Width, Hcr.Height)
Check.Caption = ""
End If
Next

Merhaba
1-Aşağıdaki kod ile tüm Checkbox'ların linkcell adresini kendi bulunduğu hücreye atayalım.
For Each Chckbox In ActiveSheet.CheckBoxes
Rowx = Chckbox.TopLeftCell.Row
Chckbox.LinkedCell = "$A$" & Rowx
Next


2-Koşullu biçimlendirmeden aşağıdaki kuralı oluşturalım


3- "R" sütununa da bu formülü yazalım EĞER(A2=DOĞRU;"Kontrol Edildi";"")