Macros - select non-contiguous columns

[datadrvn]

How can I select non-adjacent columns (or rows) without multiple commands? For example, the following cleans up a bunch of column widths for me. As you can see, there are multiple columns that are not adjacent to each other that need widths of 10. Is there a way to do this with a single selection? Not a big deal for sure...just trying learn better and more efficient methods.

Columns("A:A").ColumnWidth = 5.89
Columns("C:C").ColumnWidth = 7
Columns("D:G").ColumnWidth = 10
Columns("H:H").ColumnWidth = 5.29
Columns("I:L").ColumnWidth = 10
Columns("O:S").ColumnWidth = 10
Columns("T:T").ColumnWidth = 7

Thanks. Wayne

 

[VoG]

Here's one way

Range("D1:G1,I1:L1,O1:S1").EntireColumn.ColumnWidth = 10

 

[pgc01]

Hi Wayne

Also:

Range("D:G,I:L,O:S").ColumnWidth = 10

 

[datadrvn]

Peter & PGC...thank you both very much. Excellent...just what I was looking for. I was already in the middle of making my changes with Peter's reply and I've also given PGCs a try. I actually used both on different actions to help me remember there are multiple ways.

Thank you.

btw...is there an advantage of one over the other in your mind? Not tyring to create one-upsmanship...just wondering if one executes faster or has some other inherent advantages, perhaps in other applications.

Thanks, again.