Add Conditional formatting via VBA to a multiple sheets

[Schturman]

Hello
I trying to add conditional format to a multiple sheets in the same cells
It should appear like this in each sheet:

I created this code in module, but something wrong here... Probably with the formula that I need to add...

Option Explicit

Sub AddConForm()

Dim rng As Range
Set rng = ThisWorkbook.Sheets("januar 04-09,januar 11-16").Range("$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54")
 With rng
  .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(OR(D7=$H$3,D7=$H$3&"*",D7=$H$3&"**"),D7>"")"
  .Interior.Color = RGB(0, 176, 240)
 End With
 
End Sub

Can someone help to fix it ?
I have 52 sheets with names like january 04-09, january 11-16 etc... I also have a list (by formula) of their names if it can help, like this:
january 04-09
january 11-16

The cells in each sheet is:

=$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54

The color is: #00B0F0 /RGB(0, 176, 240)
Thanks

 

[AC PORTA VIA]

this?

Option Explicit

Sub RunCF()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select

Dim rng As Range
Set rng = ActiveSheet.Range("$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54")
 With rng
  .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(OR(D7=$H$3,D7=$H$3&""*"",D7=$H$3&""**""),D7>"""")"
  .Interior.Color = RGB(0, 176, 240)
 End With

 Next ws
    
End Sub

 

[Schturman]

this?

Option Explicit

Sub RunCF()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select

Dim rng As Range
Set rng = ActiveSheet.Range("$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54")
 With rng
  .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(OR(D7=$H$3,D7=$H$3&""*"",D7=$H$3&""**""),D7>"""")"
  .Interior.Color = RGB(0, 176, 240)
 End With

 Next ws
   
End Sub

Thanks, it's cool and worked on all sheets, but it not added color to conditional formatting, instead it added color to cells (see screenshot):

 

[AC PORTA VIA]

Sub RunCF()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select

Dim rng As Range
Set rng = ActiveSheet.Range("$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54")

With rng
 .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(OR(D7=$H$3,D7=$H$3&""*"",D7=$H$3&""**""),D7>"""")"
   End With
    With rng.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = RGB(0, 176, 240)
        .TintAndShade = 0
    End With
 Next ws
    
End Sub

 

[Schturman]

Sub RunCF()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select

Dim rng As Range
Set rng = ActiveSheet.Range("$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54")

With rng
 .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(OR(D7=$H$3,D7=$H$3&""*"",D7=$H$3&""**""),D7>"""")"
   End With
    With rng.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = RGB(0, 176, 240)
        .TintAndShade = 0
    End With
 Next ws
   
End Sub

Now it colorized another existed rule and added new rule to the end

I fixed it like this:

Option Explicit

Sub RunCF()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Select

Range("$D$7:$H$12,$D$16:$H$21,$D$25:$H$30,$D$34:$H$39,$D$43:$H$48,$D$52:$H$54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(OR(D7=$H$3,D7=$H$3&""*"",D7=$H$3&""**""),D7>"""")"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).StopIfTrue = False
         With Selection.FormatConditions(1).Interior
          .PatternColorIndex = xlAutomatic
          .Color = RGB(0, 176, 240)
          .TintAndShade = 0
         End With

 Next ws

End Sub

Now it add new rule exactly like I want...
Now I have another question..
This code add new rule to ALL sheets, how to change it to a few specific sheets or if I want that code will add new rule from specific sheet till the end ?