Edit All Sheet names to remove numbers

[Ash k]

Hello,

I have a file which automatically generates 100 sheets of different brands. The system was updated and now all the sheets include a "- (462," at the beginning of the brand names.

Previously this would just be (Armani) but now it is - (462, Armani)

Could you let me know how I could just make it "Armani" or "(Armani)" for example


I would really appreciate any help!

 

[Candyman8019]

You can try something like this. It will loop through each sheet and replace (462, with (

Private Sub RemoveGarbage()
Dim s As Worksheet

For Each s In Worksheets
    If Left(s.Name, 5) = "(462," Then
        s.Name = Replace(s.Name, "(462, ", "(")
    End If
Next s
End Sub

 

[dmt32]

Hi
untested but see if this will do what you want

Sub Remove462()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name Like "*462*" Then
            ws.Name = Replace(Replace(Replace(Replace(Replace(Replace(ws.Name, "462", ""), ",", ""), " ", ""), "-", ""), "(", ""), ")", "")
        End If
    Next ws
End Sub

Dave