Rename Sheets

[arnapsui]

Hi Friends,

I have some worksheets in a workbook which are name something like X-ASY, X-ATR, X-BMV and so on. Please note that each worksheet in this workbook follows "X-" as the beginning. I want to remove this "X-" from all the worksheets' name.

Can you just help me to do this>

Thanks.

 

[VoG]

Try this

Sub RenSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .Name = Right(.Name, Len(.Name) - 2)
    End With
Next ws
End Sub