Please double check your below statement. Try running the code again and
check the width of ColA.

"But when I run the script it sizes all columns the same 17.57"

The code works as it is in both version of XL; with col A with reduced
width. When you set the width to 7.51 width (that means 7.51 characters
long). The width actually adjusts to the next pixel. For example when you try
to fix the width at 7.51 it adjust it to the next unit which is 7.57. This
happens why because excel adjust the width to the nearest pixel . In pixels
54,55,56,57,58 etc; would get converted to 7.00, 7.14, 7.29, 7.43, 7.57
characters. Please check the below link to understand how the measurement
works

http://office.microsoft.com/en-us/ex...517241033.aspx

Additionally, you dont need to select to change the column width.

Columns("a").ColumnWidth = 7.51
Columns("b:k").ColumnWidth = 17.57
Columns("o:s").ColumnWidth = 17.57
Columns("c").Hidden = True
Columns("e").Hidden = True
Columns("g").Hidden = True
Columns("l").Hidden = True
Columns("n").Hidden = True

If this post helps click Yes
---------------
Jacob Skaria


"belvy123" wrote:

I am using 2007 at work which is where I am at now and 2003 at home and have
the samme resluts at each???
very perplexing. I want to fix it but not sure what to do now??
anyone else have any ideas???
--
cruchnin numbers


"JLatham" wrote:

I ran your code in Excel 2003 and it works for me (other than the oddity that
column A actually turns out to be 7.57 vs 7.51 wide). I found I couldn't set
it to 7.51 manually either.

"belvy123" wrote:

Hi All

I am using the following macro to resize columns as well as hide several
columns
however there is one column that i want to be a differnet size "7.51 width"
as stated un the macro. But when I run the script it sizes all columns the
same 17.57
how is it doing this and what do I need to do to rectify this.
below is the macro

thanks

Columns("a").Select
Selection.ColumnWidth = 7.51
Columns("b:k").Select
Selection.ColumnWidth = 17.57
Columns("o:s").Select
Selection.ColumnWidth = 17.57
Columns("c").Hidden = True
Columns("e").Hidden = True
Columns("g").Hidden = True
Columns("l").Hidden = True
Columns("n").Hidden = True
End Sub
--


Thanks
crunchin numbers