Range.text in and If statement

Hi,

I'm wondering if you can please help with a specific macro I am trying to create.

I'm trying to fill some cells in a dashboard with text and colour, once certain criteria are met.

The colour fill works absolutely fine, but when I added the "and text" string (£, ££ or £££) it doesn't work.

Can you please tell me where I'm going wrong?

Many thanks,
Simran


Sub ApplicationCost()

Dim SumOMS As Long
Dim SumEMS As Long

SumOMS = Application.SumIf(Range("B:G"), "Order Management", Range("G:G"))
SumEMS = Application.SumIf(Range("B:G"), "EMS", Range("G:G"))

If SumOMS > 5000000 Then
Range("K7").Interior.Color = vbRed And Range("K7").Text = "$$$"
ElseIf SumOMS > 2500000 Then
Range("K7").Interior.Color = vbYellow And Range("K7").Text = "$$"
Else:
Range("K7").Interior.Color = vbGreen And Range("K7").Text = "$"

End If

End Sub