Apply Format To Multiple Sheets

billandrew

Well-known Member
Joined
Mar 9, 2014
Messages
743
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
 
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.
 
Upvote 0

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)

Forum statistics

Threads
1,226,739
Messages
6,192,739
Members
453,754
Latest member
milestogo

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top