Video : Membuat highlight baris sesuai cell yang aktif pada range tertentu

Berikut adalah Kode Program-nya:

With Me
 If (ActiveCell.Row >= 4) And (ActiveCell.Row <= 20) And (ActiveCell.Column >= 3) And (ActiveCell.Column <= 5) Then
  With .Range(.Cells(4, 3), .Cells(20, 5)).Interior
   .ThemeColor = xlThemeColorAccent5
   .TintAndShade = 0.599993896298105
  End With
  Range(Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Interior.ColorIndex = 6
 Else
  With .Range(.Cells(4, 3), .Cells(20, 5)).Interior
   .ThemeColor = xlThemeColorAccent5
   .TintAndShade = 0.599993896298105
  End With
 End If
End With