VBA - Unable to loop through sheets to add ConditionFormats to Multiple Cells

Question

When looping through sheets to add conditional formats to ONE Cell, the code runs fine.
When looping through sheets to add conditional formats to multiple Cells, an error of "-2147417848(80010108)" occurs, showing failure of clearing ColorStops.
What is the proper way to fix the code below?

Sub con_form():  
  
For Each sh In Worksheets:  
    sh.Activate  
    sh.Cells.FormatConditions.Delete  
          
    sh.Range("K24").Select  
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _  
        "=AND(K8<>""A"", NOT(ISBLANK(K24) ) )"  
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority  
    With Selection.FormatConditions(1).Interior  
        .Pattern = xlPatternLinearGradient  
        .Gradient.Degree = 90  
        .Gradient.ColorStops.clear  
    End With  
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)  
        .ThemeColor = xlThemeColorDark1  
        .TintAndShade = 0  
    End With  
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)  
        .Color = 255  
        .TintAndShade = 0  
    End With  
   Selection.FormatConditions(1).StopIfTrue = False  
  
 sh.Range("K25").Select  
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _  
        "=AND(K8=""B"", ISBLANK(K25) )"  
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority  
    With Selection.FormatConditions(1).Interior  
        .Pattern = xlPatternLinearGradient  
        .Gradient.Degree = 90  
        .Gradient.ColorStops.clear  
    End With  
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)  
        .ThemeColor = xlThemeColorDark1  
        .TintAndShade = 0  
    End With  
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)  
        .ThemeColor = xlThemeColorAccent2  
        .TintAndShade = 0  
    End With  
    Selection.FormatConditions(1).StopIfTrue = False  
   
Next  
End Sub  

Answer 1

First turn or paste into your module line on the top

Option Explicit  

For future you can set it in option

Then you 'll se that sh is what? - i know that you know it but good to declare it
check if sh is visible if that is a loop
check if sh is enable to modify (not locked)

If sh.Visible = xlSheetVisible And sh.ProtectionMode = True Then  

do not use selection - use variables to set area or with to delete select commend

  With sh.Range("K24")  
     .FormatConditions.Delete  
 '....'  

record real formatting and then try to modify code to optimize it.

Regards