Defining the column when inserting?

[JR1412]

My macro adds several columns to the right of the user selected cells using the code shown below.

Selection.Offset(, 1).EntireColumn.Insert

The issue is the column for the selected cells is usually +300 pixels. The added column only needs to be the standard 64. Is there a simple way of defining the width when the column is inserted?

 

[wigi]

For instance

Columns(1).ColumnWidth = 8.43

 

[JR1412]

Thank you wigi. That works great, the final code:

For CtrNum = 0 To 2
    Selection.Offset(, 1).EntireColumn.Insert
    Selection.Offset(, 1).ColumnWidth = 8.43
Next

 

[wigi]

Or simpler:

With Selection.Offset(, 1).Resize(, 3).EntireColumn
    .Insert
    .ColumnWidth = 8.43
End With

 

[JR1412]

thank you.