how to change column width of range vba code example

Example: column width vba

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