Set Multiple Column Widths

[AMAS]

I am consolidating code to be more efficient and can't get the syntax to this right.

Columns("B:B,C:C,D:E,G:J").ColumnWidth = Array(25.43, 40, 75, 20)

If I set them up to change the column width for individual columns then that works fine, but is there a way to use an array to do it all at once?

AMAS

 

[mikerickson]

no

 

[AMAS]

OK Thanks. At least now I know this limitation.

AMAS

 

[AMAS]

I just found a way around this problem and wanted to share just in case anyone else had a similar question.

Sub test()
Dim n As Integer, MyWidths
MyWidths = Array(, 5, 10, 20)
    For n = 1 To 3
        Columns(n).ColumnWidth = MyWidths(n)
    Next n
End Sub

AMAS