ws.Columns(N).Width = vSizes(N - 1)
should read...
Columns(N).ColumnWidth = vSizes(N - 1)
--
Jim Cone


"Jim Cone"

wrote in message
Sub MakeThemFitBetter()
Dim vSizes As Variant
Dim N As Long
'one number for each column width
vSizes = Array(25, 75, 14, 19, 21, 23) 'need 17 numbers...
For N = 1 To 17
ws.Columns(N).Width = vSizes(N - 1)
Next
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)