Excel VBA: Add Suffix to Specific Worksheets

[MrNovice1]

Hello All,

I am just beginning to explore Excel VBA, and have written minor macros but am in need of assistance. I have an Excel document with 6 worksheets, 3 which contain the word "Detail" as part of their names. I need to create a macro that will add the suffix "-Final" to the worksheets that contain the word. I also need the macro to add a suffix "-Void" to the worksheets that don't contain the word. I know the macro will have to use wildcards to search and I am clueless with this …. please help!!! Any help will be greatly appreciated, as some of my files have any worksheets, and manually doing this is exhausting.

 

[JLGWhiz]

this should do it

Sub t()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
    If InStr(sh.Name, "Detail") > 0 Then
        sh.Name = sh.Name & "-Final"
    Else
        sh.Name = sh.Name & "-Void"
    End If
Next
End Sub

 

[MrNovice1]

That totally worked!! Thank you, you're a lifesaver!

 

[JLGWhiz]

That totally worked!! Thank you, you're a lifesaver!

You're welcome,
regards, JLG