For each worksheet with a partial name

[Tinkerz]

How do I write a for each loop on a worksheet statement if I only want to action the loop on worksheet names with account in the title

For instance if I have sheets Account Accounts1 etc and customers customers1

I only want to run a for each loop on Account tabs not customer

 

[Jonmo1]

Try

Dim ws As WorkSheet
 
For Each ws in WorkSheets
    If Instr(1, ws.Name, "Accounts") > 0 Then
        'do stuff
        MsgBox ws.Name
    End If
Next ws