KM,

If Don's reply does not suit, this code will work out the last column and
add the column widths

Sub Widths()
Dim cLastCol As Long
Dim i As Long

cLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To cLastCol
Cells(2, i) = Columns(i).Width
Next

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"KM" wrote in message
...
I need some help creating a macro in MS Excel.

Say I have a worksheet with 20+ columns of various column
widths. All I need is to get the size of each column and
put it in a cell of the respective column.

If the cursor was placed on a row where the column
headings are available, I want the macro,

to get width of respective column and save it in the next
row
go to next column and do step 1
stop when no more columns are available (say it reaches
the empty cell)


After executing the macro, the Worksheet should look
something like this:

A B C D E
Name ID DOB Comment
15.14 8.43 11.14 25

Thanks in Advance for the help.
KM