Hi corchox

Not tested but try this
For Each cll In Range("a7:a13, d7:d13, g7:g13, a21:a27, d21:d27, g21:g27").Cells
(Funny guy) John