Dongudeki hata ne ve nasıl yapoabilirim

[Kemal Demir]

Merhaba Arkadaslar,


Sub Sheet_ekle()

For x=2 to 45

Sheets.Add,Aftre:=Sheets(Sheets.Count)

ActiveSheet.name=Range("a"&x).value

Next

End sub


A2 den a45 e kadar yazmıs olduğum isimlere göre Sheet Açmak İstedim ama nafile yapamadım hata ve yanlıs nerede yardımcı olurmusunuz.

Saygılar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:b69193fac1]Sub Sheet_ekle()
For x = 2 To 45
Sheets.Add , After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Range("a" & x).Value
Next
End Sub[/vb:1:b69193fac1]

 

[Kemal Demir]

Leventm Cok Teşekkur ederim.