Checkbox ile Command Button Bağlantısı

[VBMaSTR]

Öncelikle Merhabalar.

Öncelikle ;

Private Sub CommandButton1_Click()
 Sheets(Array("010", "009")).Select
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

şeklinde excel sayfalarını yazdırmaya yarayan bir butonum var. farklı sayfaları yazdıracağım için sürekli buraya girmek istemiyorum ve checkbox ekledim. Ancak checkbox tikli olduğunda " Sheets(Array("010", "009")).Select" kısmını nasıl tanımlanacak. Yeni başladğım için mantık öğrenme peşindeyim o yüzden meraktayım. Sheets(Array(checkbox1.enabled=001, checkbox2.enabled=001)).Select
tarzı bir şey mi olacak nasıl olacak bilemiyorum.
Mantık ve sonuç hakkında yardımlarınızı bekliyorum.

 

[Murat OSMA]

Şu dosya işinize yarayabilir;

 

[VBMaSTR]

Teşekkür ederim Sn. Osma

 

[Murat OSMA]

Rica ederim, iyi günler. Osma'lara selamlar.