Hi, I have the function below, which is a loop and then performs and if
function, however I need another if statement inside the if statement below
that will only do the rcellDt.Offset(0, 5) if it is empty otherwise it should
change the color to red.

For Each rcellIm In rngIm.Cells
For Each rcellDt In rngDt.Cells
If InStr(1, rcellDt.Value, rcellIm, vbTextCompare) Then
rcellDt.Offset(0, 5) = rcellIm.Offset(0, 3)
End If
End If
Next rcellDt
Next rcellIm

Hope someone can help.

Thanks,

HFazal