Free for PREMIUM members
Dim ws As Worksheet, rw As Long
Set ws = ActiveSheet
ws.Columns(1).Interior.Color = xlNone
For rw = 2 To ws.Range("A" & Cells.Rows.Count).End(xlUp).Row
If ws.Range("L" & rw) <> 0 Then
ws.Range("A" & rw).Interior.ColorIndex = 3
Open in new window
Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.
Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.