VBA makroyla sayfa yazdırma sorunu

[RifatD]

iyi çalışmalar

sayfa numaraları 1 den başlayarak sıralı olarak 23 e kadar gidiyor.
Bir etikete 15 ve 23 arasında numaralar aktarıyorum ve yazdır düğmesine basınca etiketteki sayfa isimlerini seçerek yazdırmasını istiyorum

örneğin 15 yazılıysa 1 den 15 e kadar sayfaları seçip yazdıracak. aşağıdaki kodu kullandığımda hep 2 mislini yazdırıyor. 15 seçiliyse 30 23 seçiliyse 46 tane sayfa yazdırıyor. Nedendir?

    If Label2.Caption = 15 Then
      Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15")). _
        Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    End If

[Bülent Öztürk]

Merhaba,

Dosya üzerinde izah edebilir misiniz?