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

 

[Fluff]

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

Glad to help & thanks for the feedback.