Excel VisualBasic Script

Sub widthDemo()
     Range("C1").ColumnWidth = Range("A1").ColumnWidth
End Sub