hücresindeki ismi sayfa adına yazdırma

[turgayzeynep]

Hocam Kolay gelsin iyi akşamlar iyi çalışmalar hocam 50 sayfalık Excel'de bir çalışma sayfamız var Her sayfaya G1 hücresindeki isimleri sayfa adında görmek istiyorum 50 Sayfada da farklı isimler var G1hücresende yardımcı olabilir misiniz rica etsem
Nasıl bir yol izlemem gerekiyor

 

[Necdet]

Merhaba,

Kodları dener misiniz?

[
Sub sayfaAdDegistir()

Dim ws As Worksheet

For Each ws In Worksheets
    On Error Resume Next
    If Not ws.Range("G1") = "" Then ws.Name = ws.Range("G1").Value
    If Not Err.Number = 0 Then MsgBox ws.Name & " Değiştirilemiyor, Değer : " & ws.Range("G1")
Next ws

End Sub

/CODE]