display column width - macro modification tweak needed

[erqazx]

Hi,

I found a piece of VBA code on this board, which I could very much use. I would just like to tweak it so that it won't show column widths for EVERY column, but just for a selection. Would appreciatie any help!

Cheers.

Public Sub ColWidth()
Dim i As LongFor i = 1 To 256   
Cells(1, i).Value = Columns(i).ColumnWidth
Next i
End Sub

 

[tlowry]

Here is an example:

Public Sub ColWidth()
    For Each i In Array(3, 4, 5, 10)
        Cells(1, i).Value = Columns(i).ColumnWidth
    Next i
End Sub