[RESOLVED] generating automatic col width in excel sheet using vb

[firoz.raj]

i simple want sheet needs to be autoadjust in excel sheet.and the column does not go beyond the another sheet .can anybody tell me ?How should i do it ?tHX in advance.

i = 0
             For Each adofields In rssales.Fields
                osheet.Range("A1").Offset(0, i).Value = UCase(adofields.Name)
                osheet.Range("A1:M1").Font.Bold = True
                osheet.Cells(r, c).ColumnWidth = y
                i = i + 1
            Next