A3 AA3
A4 A4
Public Sub Compare_And_Highlight()
Dim rc As Range, ctbc As Range
Dim ref_formula As String
Set rc = ThisWorkbook.Worksheets("Sheet1").Range("Reference_Cell")
ref_formula = rc.FormulaR1C1
Set ctbc = ThisWorkbook.Worksheets("Sheet1").Range("Range_to_be_Checked")
ctbc.Select
Selection.Interior.Color = xlNone
For Each cell In Selection
If cell.FormulaR1C1 <> ref_formula Then
cell.Interior.Color = vbYellow
End If
Next
Set rc = Nothing
Set rtbc = Nothing
End Sub