Conditional Formatting copy to all sheets

[falcios]

=COUNTIF(A$1:A$45,TODAY())>0

I have 52 sheets to represent weeks of the year. The sheet that has the current date should he highlighted as per the the above formula.
I have created a new rule in conditional formatting for about 10 sheets. Is there an easier way to copy this formula to all sheets?

Thanks in advance.

 

[Joe4]

Turn on your VBA recorder and record yourself applying it to one sheet.
Then, stop your recorder and view your code. Now, you can put it in a loop to cycle through all your sheets and apply your rule to each one, i.e.

Sub MyFormat()

    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each ws In Worksheets
        ws.Activate
        'The body of your recorded code here
    Next ws
    
    Application.ScreenUpdating = True
    
End Sub

 

[falcios]

Joe4. Thanks so much for your response.

Can this be done without VBA?

 

[Joe4]

Joe4. Thanks so much for your response.

Can this be done without VBA?

If you already have the 52 sheets created, I don't think so.
This is precisely what VBA is used for - to automate things!
The good news that once you run the VBA once and create all the necessary Conditional Formatting, you shouldn't have to run the VBA again.