try
sheets.select
Columns("A:A").ColumnWidth = 5.14
Columns("B:B").ColumnWidth = 5.86
Columns("C:C").ColumnWidth = 21.14
Columns("F:F").ColumnWidth = 25.86
etc
sheet1.select
End Sub


--
Don Guillett
SalesAid Software

"jjfitts " wrote in message
...
I apologize if this has already been covered.

I would like to apply column width formatting to over 100 worksheets in
a particular workbook. Anyone have any idea on how to update all
worksheets in a workbook?

Something like this but for all sheets at once.

Sub resize()
'
' resize Macro
' Macro recorded 4/26/04 by jfitts
'
'
Columns("A:A").ColumnWidth = 5.14
Columns("B:B").Select
Selection.ColumnWidth = 5.86
Columns("C:C").Select
Selection.ColumnWidth = 21.14
Columns("F:F").Select
Selection.ColumnWidth = 25.86
Range("E:E,D:D,F1,F:F").Select
Range("F1").Activate
Columns("F:F").ColumnWidth = 12
Columns("G:G").ColumnWidth = 35.57
End Sub


---
Message posted from http://www.ExcelForum.com/