Excel 2003

When I run the program below, the debug shows: 50.58 and 50.57

I then physically measure the 6 columns and get 9.5 centimeters

and then measure column 10 and get 8.5 centimeters.

Does anybody know what's going on here?

-------------------------------------------------------------------------

sub doit

Dim widthOfSixColumns As Single

Dim columnTenWidth As Single

widthOfSixColumns = Sheets("sheet1").Columns(1).ColumnWidth * 6

Sheets("sheet1").Columns(10).ColumnWidth =
Sheets("sheet1").Columns(1).ColumnWidth * 6

columnTenWidth = Sheets("sheet1").Columns(10).ColumnWidth


end sub



Thanks