Reference cell A1 to change interior color and bold text

[seattlerose]

Hi all. So i'm working on automation a whole process and i'm stuck on a what I would think was a simple part but it's giving me trouble. I need to loop through a range in column A and if the cell has the same text as cell A1 then bold the text and set interior color to 15. When I run this it does nothing.... I tired putting in "A1" but that doesn't do anything either...

Sub test3()


LRow = Range("A" & Rows.Count).End(xlUp).row


Set MR = Range("A1:A" & LRow)
For Each cell In MR
If cell.Value = "[R1C1]" Then cell.Interior.ColorIndex = 15
If cell.Value = "[R1C1]" Then cell.Font.Bold = True


End Sub

 

[seattlerose]

I got it thanks I ended up added another part of the automation and then using that for the fix

Sub Testmacro3()


LRow = Range("A" & Rows.Count).End(xlUp).row


Range("A2:A" & LRow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R1C1"


LRow = Range("A" & Rows.Count).End(xlUp).row


Range("A2:A" & LRow).SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With


End Sub