format all column width

[Guest]

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

 

[Guest]

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

 

[Guest]

Most yes - but to be complete

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

 

[Otto Moehrbach]

Daniel
Include the "Next" line as well. HTH Otto

 

[Guest]

Don't know why it's not works. I have diferent column widths ??
Daniel

 

[Guest]

Can I write sub in sub

sub ABC()


sub setcolumnwidht()
end sub
......
.......
end sub


Thanks
Daniel

 

[Guest]

Not much point in writing Sub in Sub, you can just write the lines of code to
do the job. However, if you want to only run a procedure under certain
conditions, or if you want to break a large procedure into several smaller
procedures, then you can call the sub routines from a main procedure by
simply using their name on a single line if they are in the same workbook:

Sub Main()
Range("A1").Activate
'Do Things
ABC 'Calls sub routine ABC and will return to next line after execution.
'Do more things
End Sub

See also "Call Statement" in VBA help file.