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,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 <Mi...@discussions.microsoft.com> wrote:
> 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" 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 -