This line of code works. But can't I combine the range into one covering
columns 2 to 4?

If Intersect(Union(Range("LOBInput").Columns(2), Range("LOBInput").Columns(3), Range("LOBInput").Columns(3)), Target) IsNothing Then

Don <www.donwiss.com (e-mail link at home page bottom).