Most yes - but to be complete

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

--
Regards,
Tom Ogilvy


"Daniel" wrote:

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