VBA Help: Loop thru each tab EXCEPT those that start with letters...

[losamfr17]

Good morning dear wizards.

Can I please get some guidance on this dilemma?

I want to run the code below ONLY on worksheets whose names DO NOT START with "ULT".
Some tab names are all letters, numbers, or both letters and numbers. Is there a way to do that please?

Sub UNprotect_All_Sheets()


    Dim ws As Worksheet
        
    For Each ws In ActiveWorkbook.Worksheets
        ws.Unprotect Password:="adminf18"
    Next ws
    
End Sub

 

[losamfr17]

Any thoughts?

 

[Joe4]

Re: VBA: If with OR code won't work - Please help

It should work if you edit your original code, changing "Or" to "And" like this, and fix the error in your original code.

It should be:

Left(ws.Name, [COLOR=#ff0000][B]4[/B][/COLOR]) <> "HOME"

not:

[COLOR=#333333]Left(ws.Name, [/COLOR][COLOR=#ff0000][B]3[/B][/COLOR][COLOR=#333333]) <> "HOME"[/COLOR]

So your code should look like:

Sub ETS_All_Sheets()

    Dim ws As Worksheet
       
    For Each ws In ActiveWorkbook.Worksheets
        If ((Left(ws.Name, 3) <> "ULT") [COLOR=#ff0000][B]And[/B][/COLOR] (Left(ws.Name, 4) <> "HOME")) Then
            ws.Range("M4").Value = "Oui"
        End If
    Next ws
    
End Sub

 

[Fluff]

@losamfr17
Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. (rule 12 here: Forum Rules).
I have merged both your threads.