delete multiple columns with one line?

[Bruce Roberson]

Is there a way to replace this:

With Worksheets("Dif_data")
Columns("G:G").Delete
Columns("O:O").Delete
Columns("AB:AC").Delete
End With

With something shorther like:

Columns("G:G, P, AD:AE").Delete

(Doesn't work like this because I get this type mistmatch
error 13)

 

[Chip Pearson]

Bruce,

Try

Range("G:G, P, AD:AE").Delete

 

[Bruce Roberson]

That works. Thanks for the assistance.

Bruce

-----Original Message-----
Bruce,

Try

Range("G:G, P, AD:AE").Delete


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com (e-mail address removed)





.