I am running code to open a workbook and then I want to set all columns in
the workbook to 15.
I use:
..Workbooks.Open "C:\Shared\Report Info.xlsx"
..Columns.ColumnWidth = 15
This code only works on the first sheet in the workbook, but I need it to
work for all sheets.
Can someone please help me?
TIA

Sub tryme()
Application.ScreenUpdating = False
For Each wk In Worksheets
Columns.ColumnWidth = 15
Next
Application.ScreenUpdating = True
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"BABs" <(E-Mail Removed)> wrote in message
news:B5B550DE-8EBC-437F-BC0E-(E-Mail Removed)...
>I am running code to open a workbook and then I want to set all columns in
> the workbook to 15.
> I use:
> .Workbooks.Open "C:\Shared\Report Info.xlsx"
> .Columns.ColumnWidth = 15
> This code only works on the first sheet in the workbook, but I need it to
> work for all sheets.
> Can someone please help me?
> TIA

> Columns.ColumnWidth = 15
should be
Wk.Columns.ColumnWidth = 15

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Wed, 18 Feb 2009 10:14:43 -0400, "Bernard Liengme"
<(E-Mail Removed)> wrote:

>Sub tryme()
> Application.ScreenUpdating = False
> For Each wk In Worksheets
> Columns.ColumnWidth = 15
> Next
> Application.ScreenUpdating = True
>End Sub
>
>best wishes

Ooops, many thanks for corrections
--
Bernard

"Chip Pearson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
>> Columns.ColumnWidth = 15
> should be
> Wk.Columns.ColumnWidth = 15
>
> Cordially,
> Chip Pearson
> Microsoft Most Valuable Professional
> Excel Product Group, 1998 - 2009
> Pearson Software Consulting, LLC
> www.cpearson.com
> (email on web site)
>
> On Wed, 18 Feb 2009 10:14:43 -0400, "Bernard Liengme"
> <(E-Mail Removed)> wrote:
>
>>Sub tryme()
>> Application.ScreenUpdating = False
>> For Each wk In Worksheets
>> Columns.ColumnWidth = 15
>> Next
>> Application.ScreenUpdating = True
>>End Sub
>>
>>best wishes