İlk 3 sayfadan sonra sıralamaya başlasın.?

[ZİNDAN]

Arkadaşlar aşağıdaki kod ile çalışma kitabındaki sayfa adlarını B5 hücresinden itibaren sıralatıyorum, ancak ilk üç sayfayı (Adları 1,2 ve 3) listeye yazmasın istiyorum.Yani listelemeye 4. sayfadan itibaren başlasın.

Private Sub Worksheet_Activate()
Dim pir As Worksheet
    Dim i As Integer
    For Each pir In Worksheets
        Range("B5").Offset(i) = pir.Name
        i = i + 1
    Next
End Sub

Yardım edermisiniz, teşekkürler.
Kolay gelsin.

 

[mancubus]

i sayfa index'ine göre arttığı için satır no 5'tewn başlamayacak. siz düzenlersiniz.

Private Sub Worksheet_Activate()
Dim pir As Worksheet
    Dim i As Integer
    For Each pir In Worksheets
        If pir.Name = "1" Or pir.Name = "2" Or pir.Name = "3" Then GoTo devam:
        Range("B5").Offset(i) = pir.Name
devam:
        i = i + 1
    Next
End Sub