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).

maybe...

if intersect(me.range("lobinput").columns(2).resize(, 3), target) is nothing then



Don Wiss wrote:

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).

--

Dave Peterson

Not as nice as Dave's, but just to throw out another possible approach:

Sub test()
With Range("LobInput")
If Interesect(.Range("B1:D" & .Rows.Count), Target) Is Nothing Then
'......
End If
End With
End Sub


"Don Wiss" wrote:

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).