Column Widths

[Paul Black]

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

 

[Guest]

Use a union
Sub test()

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


End Sub

 

[Guest]

Paul,

Try this:-

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

Mike

 

[Paul Black]

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

All the Best.
Paul