Hi everyone,

Is there a way I can set columns ...

A
D
H
M
S
Z
AE

.... to column width 3 in one line please.

Thanks in Advance.
All the Best.
Paul

Use a union
Sub test()

Union(Columns("A"), Columns("D"), Columns("H"), _
Columns("M"), Columns("S"), Columns("Z"), Columns("AE")). _
ColumnWidth = 3


End Sub
"Paul Black" wrote:

Hi everyone,

Is there a way I can set columns ...

A
D
H
M
S
Z
AE

.... to column width 3 in one line please.

Thanks in Advance.
All the Best.
Paul

Paul,

Try this:-

Sub stance()
Range("A:A,D:D,H:H,M:M,S:S,Z:Z,AE:AE").ColumnWidth = 3
End Sub

Mike

"Paul Black" wrote:

Hi everyone,

Is there a way I can set columns ...

A
D
H
M
S
Z
AE

.... to column width 3 in one line please.

Thanks in Advance.
All the Best.
Paul

Thanks to both of you, thats exactly what I was after.

All the Best.
Paul

On Aug 31, 1:24 pm, Mike H wrote:
Paul,

Try this:-

Sub stance()
Range("A:A,D:D,H:H,M:M,S:S,Z:Z,AE:AE").ColumnWidth = 3
End Sub

Mike



"Paul Black" wrote:
Hi everyone,

Is there a way I can set columns ...

A
D
H
M
S
Z
AE

.... to column width 3 in one line please.

Thanks in Advance.
All the Best.
Paul- Hide quoted text -

- Show quoted text -