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

.