VBA Change Cell Colour Based On VLookup

I have found this code that, with changes, I can make work with the cells and columns I am using. What I cannot see is how to make more than one cell change colour rather than just the cell in column J.

How can I change the code below to change several cells in the row? I will be using cells in columns A:F.

Data will be entered into the rows from A2 to E2, in F2 a vlookup will enter one of the values, "High", "Medium" etc.

Each of these values has a colour assigned. The code below, with alterations, will be able to colour the cell in F2 depending on which value is entered. I need the whole row from A2 to F2 to be coloured.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim ChangedRange As Range
Dim r As Long, iCol As Long

Set ChangedRange = Intersect(Target, Columns("F:H"))

[Code] ......