excel vba set column width based on column content code example

Example: column width vba

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