Koşula göre sayfa yazdırma

[xternet]

Merhaba Arkadaşlar

Yapmaya çalıştığım şu:
AB10 hücresindeki 2,3 yada 4 değerlerine göre

Eğer 2 ise aşağıdaki sayfaları

Sheets("TUTANAK2").PrintOut copies:=1
Sheets("S_KAĞIDI2").PrintOut copies:=1
Sheets("C_KAĞIDI2").PrintOut copies:=1

Eğer 3 ise aşağıdaki sayfaları

Sheets("TUTANAK3").PrintOut copies:=1
Sheets("S_KAĞIDI3").PrintOut copies:=1
Sheets("C_KAĞIDI3").PrintOut copies:=1


Eğer 4 ise aşağıdaki sayfaları

Sheets("TUTANAK4").PrintOut copies:=1
Sheets("S_KAĞIDI4").PrintOut copies:=1
Sheets("C_KAĞIDI4").PrintOut copies:=1

yazmasını istiyorum. Bu işi makro kodu ile nasıl çözebilirim?
If-Then kurmaya çalıştım ama olmadı bir türlü.
İlgilenen arkadaşlara kolay gelsin. Çok teşekkür ediyorum.

 

[Orion1]

If Range("Ab10") >= 2 And Range("AB10") <= 4 Then
    Sheets("TUTANAK" & Range("AB10").Value).PrintOut copies:=1
    Sheets("S_KAĞIDI" & Range("AB10").Value).PrintOut copies:=1
    Sheets("C_KAĞIDI" & Range("AB10").Value).PrintOut copies:=1
End If

 

[xternet]

Mükemmel çözüm.

Zihninize sağlık Sayın Evren Gizlen.
İyi çalışmalar.

 

[Orion1]

Mükemmel çözüm.

Zihninize sağlık Sayın Evren Gizlen.
İyi çalışmalar.

Rica ederim.
İyi çalışmalar.