Multiple Columns in Columns Property?

[Don Wiss]

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]

maybe...

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

 

[JMB]

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

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