Conditional formatting Macro not working as intended.

[Kartik0698]

Hi there,
This is the macro code that I am using to apply conditional formatting:

Sub Iden_Match()
'
' Iden_Match Macro
' Identify matching cells
'
' Keyboard Shortcut: Ctrl+Shift+K
'
    Range("H3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=J3=F3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Basically what I am trying to achieve is that if values in column J equals values in column F, then formatting changes in column H. But it is not working as expected(i.e. it also changes the formatting of cells for which the formula returns false. Image for reference:
https://ibb.co/0sKX2LG

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub Kartik0698()
   With Range("H3", Range("H" & Rows.Count).End(xlUp))
      .FormatConditions.Add xlExpression, , "=J3=F3"
      With .FormatConditions(.FormatConditions.Count)
         .Font.Bold = True
         .Font.Italic = False
         .Interior.Color = 5296274
      End With
   End With
End Sub

 

[Kartik0698]

This code works absolutely fine. Can you please tell me the problems with my macro recording and how did you overcome those? Thanks in advance.

 

[Fluff]

I have no idea why your code was not working, but you very rarely need to select anything with VBA. So I just re-wrote your code to get rid of the selections.