Help condensing 2 step process
Hi Garry
Thank you again for your idea's. I ended up using your 1st example as the 2nd triggers an Error 9, Subscript Out of Range.
'Shade cells that fit criteria
.UsedRange = vRng
For n = lStart To lStop
HERE--- If vRng(n, lCol2) lWt Then _
.Cells(n, 1).Resize(1, 31).Interior.ColorIndex = 0
Next 'n
End With 'Sheets("TMS DATA")
End Sub
The other works super quick.
|