I cant seem to figure out why its not coloring every other row to the entire data but stops half way through. Can someone please take a look at this. Thanks
For Each RngCell In Range("A19:H" & ActiveSheet.UsedRange.Rows.Count) If RngCell.Value > "" Then With RngCell.Borders .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With If RngCell.Row Mod 2 = 1 Then RngCell.Interior.ColorIndex = 15 End If Next
Bookmarks