Rename part of multiple sheets if it meets my critera

[vlacombe]

I already have a script that does most of the mumbo jumbo of what I need, however at the very end of that script, I want to add the part to rename part of some of my sheets to something else

I have multiple template sheets and a master sheet within a workbook, those need to remain untouched. Here are the criteras

For all the sheets that are named Type1-xxxxxx "Type1" need to change to "PrixMax" while everything after Type1 remains
For all the sheets that are named Type2-xxxxxx "Type2" need to change to "6po" while everything after Type2 remains
For all the sheets that are named Type3-xxxxxx "Type3" need to change to "Quote" while everything after Type3 remains

Script needs not to error out nor pop up any message.
It could be possible that the script has to execute while absolutely no Type1, 2 or 3 are existant and I would want to avoid any error or pop ups on that as well.

Can anyone suggest me a script?
For general information, I am running the latest Office 365 excel version

Thank you for your assistance

 

[JoeMo]

Maybe:

Sub ChangeSomeSheetNames()
Dim whichSheets As Variant, changeTo As Variant, Sht As Worksheet, i As Long
whichSheets = Array("Type1", "Type2", "Type3")
changeTo = Array("PrixMax", "6po", "Quote")
Application.ScreenUpdating = False
For Each Sht In Worksheets
    For i = LBound(whichSheets) To UBound(whichSheets)
        If Sht.Name Like "*" & whichSheets(i) & "*" Then
            Sht.Name = Replace(Sht.Name, whichSheets(i), changeTo(i))
        End If
    Next i
Next Sht
Application.ScreenUpdating = True
End Sub

 

[vlacombe]

Hi Joe,

Works perfectly! Thanks a bunch

 

[JoeMo]

Hi Joe,

Works perfectly! Thanks a bunch

You are welcome - thanks for the reply.