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

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

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

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

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

"Otto Moehrbach" wrote:

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

Can I write sub in sub

sub ABC()


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


Thanks
Daniel

"Daniel" wrote:


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

"Otto Moehrbach" wrote:

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

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.



"Daniel" wrote:

Can I write sub in sub

sub ABC()


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


Thanks
Daniel

"Daniel" wrote:


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

"Otto Moehrbach" wrote:

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