vba code to decide cells width code example

Example: column width vba

With Worksheets("Sheet1").Columns("A") 
 .ColumnWidth = .ColumnWidth * 2 
End With