Daniel
Include the "Next" line as well. HTH Otto
"Daniel" wrote in message
...
Thanks Tom

If I have an existing sub, I just have to add below phase to my sub ?

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

Thanks

"Tom Ogilvy" wrote:

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