buton ile gizli sayfayı yazdırma ve if-else kullanımı

[ustunguven]

merhabalar, çok özür dileyerek bir soru sormak istiyorum. aşağıda bir kod yazdım ama istediğim gibi çalışmadı. Yardımcı olabilir misin rica etsem.
İstediğim şey şu:
SÖZLEŞME sayfasında B4 hücresi VAR ise SÖZLEŞME 2 KOPYA, başka bir şey ise SÖZLEŞME 2 kopya ve EK 1 KOPYA olarak yazdıracak. Yalnız EK sayfası gizli..
gizli olması sıkıntı çıkartıyor ve if-else yapısını da kullanamadım.

Private Sub CommandButton1_Click()
If Sheets("SÖZLEŞME.CELL(2, 4)") = "VAR" Then
Sheets("SÖZLEŞME").PrintOut Copies:=2
Else
Sheets("SÖZLEŞME").PrintOut Copies:=2
Sheets("EK").PrintOut Copies:=1
End Sub

 

[ÖmerFaruk]

Mukerrer açılan konuymuş. Cevabı sildim kafa karışmasın.