Sub SetColumnWidth()

for each sh in activeworkbook.Worksheets
sh.Columns.ColumnWidth = 8.43
Next

end Sub

--
Regards,
Tom Ogilvy

"Daniel" wrote:

How can I write a macro so that it can format all column width equal to
standard
or exp=20
THe funtion if nice should apply for all sheets in a workbook?

Thanks
Daniel