Excel VisualBasic Script

Sub colDemo()
     ActiveCell.ColumnWidth = 20
End Sub