Need Help With My Code To NOT Be Case Sensitive

[Jambi46n2]

Hello,

Please review my code below:

    For Each ws In Sheets
        If ws.Name Like "*goo*" Then
            ws.Select Not flg
            flg = True
            ws.Name = "840"
        End If
    Next

The code works great if the sheet name is named "goo"
It doesn't work if its named with capital letters like "Goo" or "GOO"

Is there a way that I can make this not case sensitive?

Thank you!

 

[Norie]

Try this.

        If LCase(ws.Name) Like "*goo*" Then

 

[Jambi46n2]

Thanks for the quick response Norie!

Some google research lead me to here:
Stop Excel VBA Macro Code Being Case Sensitive & Compare Text. Excel VBA Case Sensitive

I was able to add "Option Compare Text" at the top of my module.
This will allow this to impact all my code within the module itself.
Easier than re-keying every line I have this applied.

Again, thank you!