Sayfa Adlarını Tek Seferde Değiştirme

[bendiler]

Gerekli Açıklama Ekteki Dosyada Mevcuttur.
Yardımlarınız İçin Teşekkürler.

 

[uzmanamele]

merhaba

bu kodlar işinizi görür mü?

Sub SheetNamesDownRows()
Range("b6:b65536").ClearContents
  Dim iSheet As Long
  For iSheet = 1 To ActiveWorkbook.Worksheets.Count
    Cells(iSheet + 5, 2) = "'" & Worksheets(iSheet).Name
  Next iSheet
End Sub

Sub MetinKutusu4_Tıklat()
On Error Resume Next
For j = 1 To Worksheets.Count
Sheets(j).Name = Cells(j + 5, 3).Text
Next
End Sub

 

[bendiler]

Teşekkürler...

 

[baydeniro]

Harikasınız. Çok teşekkürler