Cheers,

Worked great.
I modified slightly.

Sub ColumnAdjust()
Set Rng = Range("E8:AI8")
For Each cell In Rng
If cell.Value = 1 Then
cell.ColumnWidth = cell.Value * 6
Else
cell.ColumnWidth = 0
End If
Next
End Sub

"Per Jessen" wrote:

Hi Primed

This should do it:

Sub ColumnAdjust()
Set Rng = Range("E8:AI8")
For Each cell In Rng
If cell.Value = 6 Then
cell.ColumnWidth = cell.Value
Else
cell.ColumnWidth = 6
End If
Next
End Sub

Regards,
Per

"primed" skrev i meddelelsen
...
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

.