Forum Discussion

dolfinmagikpro's avatar
dolfinmagikpro
Copper Contributor
Sep 25, 2025

Column width after Column Insert

Greetings. Is there a way to insert a column between two columns and have the column widths adjust automatically? For instance, Column A is 20 wide and Column B is 60 wide and Column C is 30 wide. ...
excel
Kidd_Ip's avatar
Kidd_Ip
MVP
Sep 26, 2025

How about automating

Sub InsertColumnPreserveWidth()
    Dim colIndex As Integer
    colIndex = ActiveCell.Column

    Dim originalWidth As Double
    originalWidth = Columns(colIndex + 1).ColumnWidth

    Columns(colIndex + 1).Insert Shift:=xlToRight
    Columns(colIndex + 2).ColumnWidth = originalWidth
End Sub

by VBA:

 

 

Resources