Döngü ile dizi oluşturmak.

[kuyupinar]

Merhaba,
Döngü ile dizi oluşturup dizideki sayfaları seçmek için aşağıdaki kodu yazdım ama "Subscript out of Range" hatası verdi.

Acaba böyle bir çalışma yapılabilirmi ?

Sub DiziOlustur()
Dim a
For i = 1 To 3
If Not i = 3 Then a = a & i & ","
If i = 3 Then a = a & i
Next i
Sheets(Array(a)).Select
End Sub

 

[kundakci]

Merhaba
Sub DiziOlustur()
Dim a(3)
For i = 1 To 3
If Not i = 3 Then a(i) = "Sayfa" & CStr(i)
If i = 3 Then a(i) = i
Next i
Sheets(a(2)).Select
End Sub

Birde bunu denermisin