Something like:

.Columns("B:B").Select
. Selection.ColumnWidth = 60
.Selection.Interior.ColorIndex = 16

>Hello all
>
>I want to draw a grey fill column B2 and i want to set the WIDTH Of the column B to be 60 how to set it