Sayfa ısımlerının topluca degıstırılmesı

[iyigit]

Merhabalar.

Örneğin; 01 Mart, 02 Mart, 03 Mart...31 Mart olan bir dosyadaki sayfa isimlerini topluca ve kolayca 01 Nisan, 02 Nısan vb. yapabilir miyim? Yoksa her sayfayı tek tek mi yeniden adlandırmalıyım?

Teşekkürlerimle,

İlknur Yiğit

 

[dEdE]

Merhaba,

Aşağıdaki lodu kullanabilirsiniz.
Örnek dosyanız da ilişiktedir.

Sub Adlandır()
    Ad = InputBox("Rakam Yazmayınız. Sadece Ay Adını Yazınız.", "Yeni Sayfa Adını Giriniz.")
    For i = 1 To Sheets.Count
        k = i
        If k < 10 Then k = "0" & k
        Sheets(i).Name = k & " " & Ad
    Next
End Sub