Hi all, venturing into the wild world of For Each instead of Do Until loops, have the following:
Dim LastrowAD As LongDim cl As Range
Dim visrng As Range
LastrowAD = Cells(Rows.Count, "A").End(xlUp).Row
Set visrng = Range("A2:A" & LastrowAD)
For Each cl In...