Sayfa adlarındaki boşluklar

[alirizapekbilir]

Sayfa adlarındaki boşlukları topluca kaldırmak istiyorum nasıl yaparız. Sayfa 1 Sayfa1 Sayfa 2 Sayfa2 gibi. Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    Dim Sayfa As Worksheet
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Name = Replace(Sayfa.Name, " ", "")
    Next
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[alirizapekbilir]

Teşekkürler Korhan Bey
Elinize emeğinize sağlık.