Autofit cells in column B

[mexmanz]

Hi,

I have two columns.
Column A contains row titles and Column B will have text notes typed by the user.

I have set the rows to Autofit and wrap text, but this only seems to apply when the cell in column A has too much text for the size.

The cells in column B will be the ones used to type notes freely. How can I set these ColB cells to autofit/expand to accomodate large notes typed in a cell?

thanks
Andrew

 

[John Davis]

Hi,

I have two columns.
Column A contains row titles and Column B will have text notes typed by the user.

I have set the rows to Autofit and wrap text, but this only seems to apply when the cell in column A has too much text for the size.

The cells in column B will be the ones used to type notes freely. How can I set these ColB cells to autofit/expand to accomodate large notes typed in a cell?

thanks
Andrew

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
With Columns("B:B")
    .Columns.AutoFit
    .HorizontalAlignment = xlGeneral
    .VerticalAlignment = xlBottom
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
End Sub