Toplu sayfa değiştirmek ?

[aydgur]

"Bakiye" adlı sayfamın X14:X400 hücreleri arasında sayfa isimleri yazılı.
Dosyamdaki bu sayfa isimlerini Y14:Y400 arasındaki sayfa adları ile MAKRO ile
değiştirmek istiyorum,yardımcı olabilirmisiniz ?

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub SayfaAdıDegistir()
 
    Dim i As Integer, c As Range
 
    Sheets("Bakiye").Select
 
    For i = 1 To Worksheets.Count
        With Sheets(i)
            Set c = [X14:X400].Find(.Name, , xlValues, xlWhole)
            If Not c Is Nothing Then
               .Name = Range("Y" & c.Row)
            End If
        End With
    Next i
 
End Sub

.