formatting non-adjacent columns

[sedgely]

i am trying to set the column width of several columns that are not adjacent to each other e.g. column A, column C, column Z

the code i have used is :

Private Sub CommandButton1_Click()
With Worksheets("sheet1&quot.Columns("A:C&quot
.ColumnWidth = 15
End With
End Sub

this works great for adjacent columns, but how do i specify a range of columns that are non-adjacent?

Craig

 

[bronc]

use Array to list them
record a macro to do it! and you will see

 

[TonyJollans]

Hi sedgely,

There are various ways, but in keeping with what you have, use ..

With Worksheets("sheet1").Columns("A:A,C:C,Z:Z")

Enjoy,
Tony

 

[VBAva]

try this and see if it works

Private Sub CommandButton1_Click()
Worksheets("sheet1&quot.Range("A:A,C:C,Z:Z&quot.Select
Selection.ColumnWidth = 15
End Sub

 

[DrBowes]

I think you can do

Worksheets("sheet1").Columns("A:A,C:C,Z:Z").ColumnWidth = 15

 

[dan1967]

It might be easier to combine (UNION) these columns into one object:

Dim WidthCols As Range
Set WidthCols = Union(Columns("A"), Columns("C"))
WidthCols.ColumnWidth = 10

Dan.

 

[sedgely]

Hey Guys thanks for the prompt replies and many suggestions, have found that the following solution works well so am gonna use that.

Worksheets("Sheet1&quot.Range("A:A,C:C&quot.ColumnWidth = 15


Again many thanks to all. [2ThumbsUp]

Craig