manually
select the first columnhold shift keyselect last
columnformatcolumnwidth

in a macro

Sub setcolumnwidth()
Columns("a:j").ColumnWidth = 20
'or
'Range(Cells(1, 1), Cells(1, 10)).ColumnWidth = 20
End Sub
--
Don Guillett
SalesAid Software

"JcR" wrote in message
...
In rows 1 through 10, I want my column width to be "20"

In rows 11 through 20, I want my column width to be "4"

How do I do this ?

Thanks