CheckBox.captiona sayfadan isim almak

[akd]

Merhaba arkadaşlar,
userform üzerinde 30 tane CheckBox var bunların captionunun isimlerini sayfanın ay1:cb1 aralığındaki gün isimlerini almak istiyorum, aşağıdaki kodla uğraştım bir türlü başaramadım, yardımcı olacak arkadalara şimdiden teşekkürlerimi sunarım
Private Sub CommandButton1_Click()
For a = 1 To 51 Step 1
For e = 1 To 30
maas.Controls(Check & e + 1).Caption = Cells(1, a)
Next
Next
End Sub

 

[cako]

For a=51 to 80
maas.controls(check &e).Caption=Cells(1,a)

bu satırlar bu şekilde düzeltin

 

[akd]

malesef cako kardeş yine hata veriyor
maas.controls(check &e).Caption=Cells(1,a)
bu satır

 

[idogus]

Lütfen ekteki örneği inceleyin!