Highlight cells when intersect

[sunjam]

Hi,

PLease help.

If intersect to column C:AP then column B will highlight.

I have here a very long and winding codes.

Is there a way to shorten this codes

Range("B4:B2000").Interior.ColorIndex = xlNone
  
    If Not Intersect(Target, Range("C4:C2000")) Is Nothing Then
        Intersect(Target, Range("C4:C2000")).Offset(, -1).Interior.Color = RGB(0, 200, 0)
    ElseIf Not Intersect(Target, Range("D4:D2000")) Is Nothing Then
        Intersect(Target, Range("D4:D2000")).Offset(, -2).Interior.Color = RGB(0, 200, 0)
    ElseIf Not Intersect(Target, Range("E4:E2000")) Is Nothing Then
        Intersect(Target, Range("E4:E2000")).Offset(, -3).Interior.Color = RGB(0, 200, 0)
    ElseIf Not Intersect(Target, Range("F4:F2000")) Is Nothing Then
        Intersect(Target, Range("F4:F2000")).Offset(, -4).Interior.Color = RGB(0, 200, 0)

End if

Thanks,