Ah, I missed the Row 8 part. Give this a try then...

Range("E8:AI8").Columns.AutoFit

--
Rick (MVP - Excel)



"primed" wrote in message
...
Hi Rick,

Probably my poor communication skills are the issue. Columns E to AI need
to
be resized based on values in row 8 only. Other rows contain data that
needs
to be ignored.

Your formula seems to resize the columns based on the value in all the
rows.

Regards
Primed

"Rick Rothstein" wrote:

I'm not sure why you say that... the code line I posted sizes each column
in
the range to the contents of the widest value in the column (which,
unless I
completely misunderstood what you were asking for, I believe is what your
initial posting was suggesting you wanted to do). If you didn't already
do
so, give it a try and see how it works.

--
Rick (MVP - Excel)



"primed" wrote in message
...
I am not a programmer but that doesnt seem to take into account the
values
in
row 8.
It will come in handy for something else though.

Cheers
Primed

"Rick Rothstein" wrote:

Why not let VB figure it out for you...

Columns("E:AI").AutoFit

--
Rick (MVP - Excel)



"primed" wrote in message
...
Hi,

Can anyone help with code to do the following:

Row E8:AI8 - each cell contains a value 0 to 100, generally a value
of
1
to
20. The total of the row is maximum 100.
I would like to adjust the width of the column based on the values
for
each
column.
The minimum width would need to be 6 so text is still readable.

Thanks in advance

Primed

.

.