Thanks much for the help.
The code I wrote to set column widths is:
Dim ColWid$
Do Until ActiveCell.Value = ""
ColWid$ = ActiveCell.Value
Selection.ColumnWidth = ColWid$
ActiveCell.Offset(0, 1).Range("A1").Select
Loop
To use it, I manually check the column width for each column of a sheet I
want to duplicate and enter it manually in a row of each column. Then copy
that row of all the column widths to the new sheet. Run the code and my
columns are set. I would love to have a little piece of code that reads the
column width and enters it in the active cell. When I tried ActiveCell.Value
= ActiveCell.Width, it returned 48 in the cell instead of 8.43 I got when
checking the column width manually. Thought it might be pixels or something,
but different width columns didn't return consistent ratios, like 98.25 on a
column 18 wide. Any help would be greatly appreciated.

"Dave O" wrote:

As an alternative: you could "group" all the sheets in a workbook by
pressing CTRL and left clicking each tab. When sheets are grouped any
change made to one sheet will be made on all the grouped sheets. Then
autosize each column- all columns will now be a readable width.
Ungroup your sheets afterwards by right-clicking on a grouped sheet and
selecting Ungroup Sheets. You could even automate this process by
recording it as a macro.

Since you're using code you can get a column's width with this code:
dim ColWidth as double
ColWidth = ActiveCell.Width