Sekmelerin isimlerini kendi içlerindeki bir hücreden verme

[kaososu]

Arkadaşlar bir sorum olacak
Tüm sekmelerin isimlerini kendi içlerindeki A2 hücresinden alıp değiştirmek istiyorum.

Örneğin;
Sekme adı: Sayfa1
A2 değeri: Ali VELİ

Uygulayacağımız fonksiyon ile;
Sekme ad: Ali VELİ
A2 değeri: Ali VELİ

olacak. Her excel dosyasının içinde onlarca çalışma sayfası olduğu için tümüne uygulamam gerekiyor. Umarım yardım edebilirsiniz.

 

[Huseyinkis]

Merhaba Ekteki kodları dosyada uygulayıp test edermisiniz.

Sub isimdeğiş()

For i = 1 To Sheets.Count

Sheets(i).Name = Sheets(i).Cells(2, 1).Value

Next i

End Sub

 

[kaososu]

Çok teşekkür ederim Huseyinkis halloldu.