Apply Format To Multiple Sheets

[billandrew]

Good morning all

How would I apply the below code to Multiple worksheets in workbook. TY

Sub formatif()
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
For w = 2 To lr

If Cells(w, 5).Value = "Up" And Cells(w, 8).Value = "No" Then
Cells(w, 1).Resize(1, 8).Interior.Color = rgbLemonChiffon
Cells(w, 1).Resize(1, 8).Font.Bold = True
Cells(w, 1).Resize(1, 8).Font.Color = rgbDarkRed
End If
Next w
End Sub

 

[SteveO59L]

you will have to be a little more descriptive, what does "Multiple worksheets " mean?

All sheets, all except ???

 

[billandrew]

preferably several named sheets

 

[billandrew]

May be January through December or a 6 month period.

 

[Fluff]

How about something like this.
Change the parts in red to match your sheet names

Sub shtarray()
    
    Dim Sht As Worksheet

    For Each Sht In Sheets(Array("[COLOR=#ff0000]Jan[/COLOR]", "[COLOR=#ff0000]Feb[/COLOR]"))
        Sht.Tab.Color = vbRed
    Next Sht

End Sub

 

[billandrew]

unsure how to apply to the code above

 

[Fluff]

Like this

Sub formatif()

    Dim Sht As Worksheet
    Dim Lr As Long
    Dim w As Long
    
Application.ScreenUpdating = False

    For Each Sht In Sheets(Array("[COLOR=#ff0000]Jan[/COLOR]", "[COLOR=#ff0000]Feb[/COLOR]", "[COLOR=#ff0000]Mar[/COLOR]"))
        Lr = Sht.Cells(Rows.Count, 1).End(xlUp).Row
        For w = 2 To Lr
            If Sht.Cells(w, 5).Value = "Up" And Sht.Cells(w, 8).Value = "No" Then
                Sht.Cells(w, 1).Resize(1, 8).Interior.Color = rgbLemonChiffon
                Sht.Cells(w, 1).Resize(1, 8).Font.Bold = True
                Sht.Cells(w, 1).Resize(1, 8).Font.Color = rgbDarkRed
            End If
        Next w
End Sub

Changing the words in red to match your sheet names. For more sheets simply add more values, with a coma separator between each

 

[billandrew]

Awesome..

Thank you Fluff for your time and explanations.

In the last several posts you have provided a wealth of VBA knowledge which undoubtedly has vastly improved my skills as well as others who are viewing these posts.

Thanks again

 

[YasserKhalil]

There is missing statement "Next Sht"

 

[billandrew]

Yes I inserted when I applied the code.

TY