Brain dead - what am i doing wrong

[wmtsub]

For Each ws In ActiveWorkbook.Worksheets
ws.Select
entire.Columns.AutoFit
entire.Rows.AutoFit
Columns("G:G").EntireColumn.Delete
Columns("E:E").EntireColumn.Delete
Next ws

 

[Joe4]

I don't think it shouldn't make any difference, but what happens if you change this line:

For Each ws In ActiveWorkbook.Worksheets

to this:

For Each ws In Worksheets

I don't think you need the "ActiveWorkbook" part - I never use it!

Also, what version of Excel are you using?
Is it a Windows or Mac version?

 

[wmtsub]

Varyies but so far its been in the 50's.
I got it to work this AM , its a work around but it works.
I had to expand all the columns first then it would shrink ok.
And I had to activate each sheet instead of select (initial error I think)


For Each ws In ThisWorkbook.Worksheets
ws.Activate
Columns("G:G").Delete
Columns("E:E").Delete
Cells.Select
Selection.ColumnWidth = 80
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
Next ws