In diesem Beispiel wird die Breite der Spalte A in Sheet1 verdoppelt.
With Worksheets("Sheet1").Columns("A") .ColumnWidth = .ColumnWidth * 2 End With