Hi All,

I have the below formula.

Sub Update()
      
 For Each Cell In Range("K3:K500")
 
 If Application.WorksheetFunction.VLookup(Range("G3"), Sheets("AU ETAs").Range("B:U"), 20, False) <> "" Then
Cell.Font.Color = vbRed
ElseIf Application.WorksheetFunction.VLookup(Range("G3"), Sheets("AU ETAs").Range("B:T"), 19, False) <> "" Then
Cell.Font.Color = vbBlue
End If

Next
    
End Sub
I need to change the lookup value "G3" relative to the cell being executed. Therefore if the vlookup is on cell K5, I want the lookup value to be G5. K6, the lookup value is G6, etc.

Any help is greatly appreciated.

Benno