Solved: quick question formatting column widths

[TrippyTom]

This is my code:
[vba]Columns("P:P").ColumnWidth = 7.86
Columns("R:R").ColumnWidth = 7.86
Columns("T:T").ColumnWidth = 7.86
Columns("V:V").ColumnWidth = 7.86
Columns("X:X").ColumnWidth = 7.86
Columns("Z:Z").ColumnWidth = 7.86[/vba]

Is there a shorter version of doing this to multiple columns that are not contiguous?

[Krishna Kumar]

May be

[vba]Dim Cols
Cols = Array(16, 18, 20, 22, 24, 26) 'column numbers
For c = 0 To UBound(Cols)
Columns(Cols(c)).ColumnWidth = 7.86
Next
[/vba]

[GTO]

Greetings Tom,

Range and Union can be used to do such things in one swipe.

Hope this helps,

Mark

[VBA]Sub AdjustColWid()

Range("P:P,R:R,T:T,V:V,X:X,Z:Z").ColumnWidth = 7.86

End Sub[/VBA]

[mdmackillop]

For regular spacings you can use Mod to identify rows/columns
[vba]
Sub CWidth()
For i = 16 To 26
If i Mod 2 = 0 Then Columns(i).ColumnWidth = 2
If i Mod 2 = 1 Then Columns(i).ColumnWidth = 20
Next
End Sub
[/vba]

[Andy Pope]

this combines all the suggested approaches

[vba]
Dim rngCol As Range
For Each rngCol In Columns("P:Z")
If rngCol.Column Mod 2 = 0 Then rngCol.ColumnWidth = 7.86
Next
[/vba]

[GTO]

@Malcom:

Showoff! (Okay, seriously - thank you. WAY more 'adjustable' and I would not have ever thought of that.)

@Trippy:

Bright idea for signature!

Ya'll have a terrific weekend!

Mark

[GTO]

OOPS! Sorry Andy. My typing * laptop speed = late...

Mark

[TrippyTom]

Thanks to all! I knew someone would jump on this very easy question.

Happy Halloween!