In the past I have needed to see the column widths. Here is a macro that will insert a row at the top and then insert the current column width in the used columns:
<pre>
Sub ColWidth()
Dim CurrCol As Long
Dim rng As Range
Dim TotalCol As Long
CurrCol = 0
' determine the number of columns in use
Range("A1").Activate
Set rng = ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlToRight))
TotalCol = rng.Columns.Count
' insert a new top row
ActiveCell.EntireRow.Insert shift:=xlDown
Do While CurrCol < TotalCol
CurrCol = CurrCol + 1 ' Increment Column
Cells(1, CurrCol).Value = Cells(1, CurrCol).ColumnWidth
Loop
End Sub
ENJOY!!
</pre>