More elegant way of replacing text and formatting it

Question

Right now I have this:

[M3].select \'Range(\"M3\").Select originally, I like using the [ ] notation
totalrows = [H2].CurrentRegion.Rows.Count
Range(\"m3:p\"          


        

Answer 1

If the cell contains the text "Green", change the cell background to Green and don't change the text.

I'd use this which I think is elegant enough:

[A1].FormatConditions.Add xlExpression, , "=A1=""Green"""
With [A1].FormatConditions(1)
    .Interior.Color = RGB(0, 255, 0)
    .ModifyAppliesToRange [M:P] '~~> of course change this part to suit
End With

Not one liner though.