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:P, AD:AE").Delete

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

Bruce,

Try

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


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Bruce Roberson" wrote in message
...
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:P, AD:AE").Delete

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

That works. Thanks for the assistance.

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

Try

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


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Bruce Roberson" wrote in
message
...
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:P, AD:AE").Delete

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




.