Sayfa isimlerini değiştirme

[caglarr65]

İyi günler,
Ana sayfada bulunan isimlerle sayfa isimlerini topluca değiştirmek istiyorum.Şimdiden teşekkürler.

 

[uzmanamele]

merhaba

aşağıdaki kodları standart modüle yazarak deneyiniz

Sub ad_degistir()
For i = 2 To Worksheets.Count
Sheets(i).Name = Cells(i - 1, 1)
Next
End Sub

 

[caglarr65]

Sayın:Uzmanamele
Tam istediğim gibi.Çok teşekkür ederim.